strSQL = "UPDATE tbl_client SET " _
& "cli_medical_record_no = '" & Me.txtmedrecno & "', " _
& "cli_lastname = '" & Replace(Me.txtlastname, "'", "''") & "', " _
& "cli_firstname = '" & Replace(Me.txtfirstname, "'", "''") & "', " _
& "cli_middlename = '" & Replace(Nz(Me.txtmiddlename, ""), "'", "''") & "', " _
& "cli_id_lib_name_suffix = '" & Nz(Me.cbosuffix, 0) & "', " _
& "cli_id_lib_gender = '" & Me.cbogender & "', " _
& "cli_ssn = '" & AESencr(gbl_str69, Me.txtssn1) & "', " _
& "cli_dob = " & Format(Me.dtdob, "yyyymmdd") & ", " _
& "cli_id_lib_ethnicity = '" & Nz(Me.cboethnicity, 0) & "', " _
& "cli_id_lib_marital_status = '" & Nz(Me.cbomaritalstatus, 0) & "' " _
& "WHERE id_client = " & Me.txtcliid1 & ";"
.Execute strSQL, , adCmdText + adExecuteNoRecords