con.CompanyName = Nz(rstSource![CompanyName])
con.Department = Nz(rstSource![Department])
con.JobTitle = Nz(rstSource![JobTitle])
con.BusinessAddressStreet =
Nz(rstSource![BusinessAddressStreet])
con.BusinessAddressPostOfficeBox =
Nz(rstSource![BusinessAddressPostOfficeBox])
con.BusinessAddressCity =
Nz(rstSource![BusinessAddressCity])
con.BusinessAddressState =
Nz(rstSource![BusinessAddressState])
con.BusinessAddressPostalCode =
Nz(rstSource![BusinessAddressPostalCode])
con.BusinessAddressCountry =
Nz(rstSource![BusinessAddressCountry])
con.BusinessHomePage =
Nz(rstSource![BusinessHomePage])
con.FTPSite = Nz(rstSource![FTPSite])
con.HomeAddressStreet =
Nz(rstSource![HomeAddressStreet])
con.HomeAddressPostOfficeBox =
Nz(rstSource![HomeAddressPostOfficeBox])
con.HomeAddressCity =
Nz(rstSource![HomeAddressCity])
con.HomeAddressState =
Nz(rstSource![HomeAddressState])
con.HomeAddressPostalCode =
Nz(rstSource![HomeAddressPostalCode])
con.HomeAddressCountry =
Nz(rstSource![HomeAddressCountry])
con.OtherAddressStreet =
Nz(rstSource![OtherAddressStreet])
con.OtherAddressPostOfficeBox =
Nz(rstSource![OtherAddressPostOfficeBox])
con.OtherAddressCity =
Nz(rstSource![OtherAddressCity])
con.OtherAddressState =
Nz(rstSource![OtherAddressState])
con.OtherAddressPostalCode =
Nz(rstSource![OtherAddressPostalCode])
con.OtherAddressCountry =
Nz(rstSource![OtherAddressCountry])
con.AssistantTelephoneNumber =
Nz(rstSource![AssistantTelephoneNumber])
con.BusinessFaxNumber =
Nz(rstSource![BusinessFaxNumber])
con.BusinessTelephoneNumber =
Nz(rstSource![BusinessTelephoneNumber])
con.Business2TelephoneNumber = _
Nz(rstSource![Business2TelephoneNumber])
Synchronizing Access and Outlook Contacts 11