Do While Not rsResult.EOF 
                                str_record = Cstr(rsResult("station_code")) & "[" & CSTR(rsResult("port_code")) & "]"
            str_record = str_record & "#" & rsResult("address")
            str_record = str_record & "#" & rsResult("prop_name")