[RESOLVED] Help Plz

[MartinLiss]

Do I have the correct and or up to date project. In the one you sent me Command1 has a cation of "Update" and the following code.

Private Sub Command1_Click()
On Error Resume Next
With RS
    If MsgBox("Update The Record?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    .Fields("uname") = txtUser.Text
    .Fields("pass") = txtPass.Text
    .Update
    .Requery
MsgBox "The current record has been updated", vbInformation, "Update Successful"
End If
End With
End Sub