Const rSource = "SELECT CustomerID, FName, SName, Title, OrgName, AddrL1, AddrL2, TownCity, PCode, " & _
"CountryRegion, PhoneLL, PhoneMob, Fax, EMail, AssociationNumber, Association FROM Contacts " & _
"WHERE (((FName) Like [First Letter of First Name] & '*') And ((SName) = [Surname]))"