إقتباس :Dim Response As String
Dim uname As String

uname = txtName.Text

Response = MsgBox("Update this record?", vbYesNo + vbQuestion, "Confirmation")

If Response = vbNo Then
Adodc1.Recordset.CancelUpdate
Adodc1.Refresh

MsgBox "Save Cancelled!"

ElseIfEmp_Namei.Text = "" Then
MsgBox "Please fill the fields!", vbCritical, Time

ElseIf Response = vbYes Then

 Adodc1.Recordset.Fields("Emp_Name") = txtName.Text

 Adodc1.Recordset.Fields("ContactNo") = txtcontact.Text
 Adodc1.Recordset.Fields("Emp_Sex") = cmbSex.Text
 Adodc1.Recordset.Fields("Emp_Salary") = txtSalary.Text
 Adodc1.Recordset.Fields("Nationality") = CmbNat.Text
 Adodc1.Recordset.Fields("Emp_Birthdate") = txtBdate.Text

Adodc1.Recordset.Update
MsgBox "Record Saved!", vbInformation, Time

End If
End Sub