Hi,
Change the code to :
To Add record:
RS.Open "SELECT * from Phonebook", conn, adOpenDynamic, adLockOptimistic
RS.AddNew
RS!Customers_Name = txtName.Text
RS!Address = txtAddress.Text
RS!Mobile = txtMobile.Text
RS!Telephone = txtTelephone.Text
RS.Update
To Edit the record:
RS.Open "SELECT * from Phonebook Where Customer_Name = '" & txtName.Text & "'", conn, adOpenDynamic, adLockOptimistic
If RS.EOF Then
RS.AddNew 'Record Not Found so Adding New
RS!Customers_Name = txtName.Text
Else
RS.MoveFirst
End If
RS!Address = txtAddress.Text
RS!Mobile = txtMobile.Text
RS!Telephone = txtTelephone.Text
RS.Update
Regards
Veena