Thanks for the script. There is one minor tweak that I had to make on the script and then it worked:
sSQL = sSQL & " PHNUMBR1 = '" & SourceFields("Vendor.phone1") & "'"
Changed to (added , before PHNUMBR1)
sSQL = sSQL & " ,PHNUMBR1 = '" & SourceFields("Vendor.phone1") & "'"
Jeff