Dim X

If NewPass = "" Or IsNull(NewPass) Then
    MsgBox "Please Enter A New Password"
    Me.NewPass.SetFocus
    Exit Sub
End If

If ReEnter = "" Or IsNull(ReEnter) Then
    MsgBox "Please Re-Enter New Password"
    Me.ReEnter.SetFocus
    Exit Sub
End If

If NewPass <> ReEnter Then
    MsgBox "The Re-Enterd Password Does Not Match The New Password"
    NewPass = ""
    ReEnter = ""
    Me.NewPass.SetFocus
    Exit Sub
End If

If Len(NewPass) <= 7 Then
    MsgBox "Password Must Be At Least 8 Charaters Long"
    NewPass = ""
    ReEnter = ""
    Me.NewPass.SetFocus
    Exit Sub
End If


Dim db As Database
Dim RS As DAO.Recordset
Dim UID As Integer
Dim pass As String


UID = UserId.Text
pass = NewPass.Text

Set db = CurrentDb
Set RS = db.OpenRecordset("Select * From UsersT")
    RS.FindFirst "UserID=" & UID
        If Not RS.NoMatch Then
            If LCase(RS.Fields!Password) = LCase(pass) Then
                MsgBox "Invaild New Password Try Again"
                NewPass = ""
                ReEnter = ""
                Me.NewPass.SetFocus
                Exit Sub
            Else
                RS.Edit
Error Line----> LCase(RS!Password)= LCase(pass)
                RS.Update
                Exit Sub
            End If
        End If
    
    
Set RS = Nothing
Set db = Nothing

---

Reply from Richard Rost:

Your statement is formed wrong. You would just say:

rs!Password = LCASE(pass)

You can't use a function like that on the LEFT side of an equation. You're setting the variable rs!Password equal to whatever's on the right side.