Const rSource = "SELECT Contacts.CustomerID, Contacts.FName, Contacts.SName, Contacts.Title, Contacts.OrgName, Contacts.AddrL1, Contacts.AddrL2, Contacts.TownCity, Contacts.PCode, Contacts.CountryRegion, Contacts.PhoneLL, Contacts.PhoneMob, Contacts.Fax, Contacts.EMail...