con.CallbackTelephoneNumber = _
Nz(rstSource![CallbackTelephoneNumber])
con.CarTelephoneNumber = _
Nz(rstSource![CarTelephoneNumber])
con.CompanyMainTelephoneNumber = _
Nz(rstSource![CompanyMainTelephoneNumber])
con.HomeFaxNumber = Nz(rstSource![HomeFaxNumber])
con.HomeTelephoneNumber = _
Nz(rstSource![HomeTelephoneNumber])
con.Home2TelephoneNumber = _
Nz(rstSource![Home2TelephoneNumber])
con.ISDNNumber = Nz(rstSource![ISDNNumber])
con.MobileTelephoneNumber = _
Nz(rstSource![MobileTelephoneNumber])
con.OtherFaxNumber = Nz(rstSource![OtherFaxNumber])
con.OtherTelephoneNumber = _
Nz(rstSource![OtherTelephoneNumber])
con.PagerNumber = Nz(rstSource![PagerNumber])
con.PrimaryTelephoneNumber = _
Nz(rstSource![PrimaryTelephoneNumber])
con.RadioTelephoneNumber = _
Nz(rstSource![RadioTelephoneNumber])
con.TTYTDDTelephoneNumber = _
Nz(rstSource![TTYTDDTelephoneNumber])
con.TelexNumber = Nz(rstSource![TelexNumber])
con.Account = Nz(rstSource![Account])
con.AssistantName = Nz(rstSource![AssistantName])
con.Categories = Nz(rstSource![Categories])
con.Children = Nz(rstSource![Children])
con.PersonalHomePage = _
Nz(rstSource![PersonalHomePage])
con.Email1Address = Nz(rstSource![Email1Address])
con.Email1DisplayName = _
Nz(rstSource![Email1DisplayName])
con.Email2Address = Nz(rstSource![Email2Address])
con.Email2DisplayName = _
Nz(rstSource![Email2DisplayName])
con.Email3Address = Nz(rstSource![Email3Address])
con.Email3DisplayName = _
Nz(rstSource![Email3DisplayName])
con.GovernmentIDNumber = _
Nz(rstSource![GovernmentIDNumber])
con.Hobby = Nz(rstSource![Hobby])
con.ManagerName = Nz(rstSource![ManagerName])
con.OrganizationalIDNumber = _
Nz(rstSource![OrganizationalIDNumber])
con.Profession = Nz(rstSource![Profession])
con.Spouse = Nz(rstSource![Spouse])
con.WebPage = Nz(rstSource![WebPage])
con.IMAddress = Nz(rstSource![IMAddress])Part II Writing VBA Code to Exchange Data between Office Components