How to I quit the program if the user hits cancel?
Dim intRCCount, objRS
Do
intRCCount = 0
ShipTo = InputBox(Message2, Title2, "",100, 100)
strSQL10 = "Select ship_to_cd from POSHPFIL_SQL where ship_to_cd = '" & ShipTo & "'"
Call GetShipToRecordSetCount(strSQL10, intRCCount, objRS)...