cboGender.Text = RSLoadData.Fields("GenderDesc") & ""
Then RSSaveData.Fields("StreetAddress2") = iIf (Trim$(txtStreetAddress2.Text) <> "", txtStreetAddress2.Text, vbNullString)