Microsoft VS - Access

Question

我遇到问题access-VS它的方式变量未定义任何人都可以帮助我吗？

这是我正在处理的代码:(我是新手）

Option Compare Database
Option Explicit

Private Sub btnLogin_Click()
    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("tbl1Employees", dbOpenSnapshot, dbReadOnly)

    rs.FindFirst "UserName='" & Me.txtUserNAme & "'"

    If rs.NoMatch = True Then
        Me.lblWrongUser.Visible = True
        Me.txtUserNAme.SetFocus
        Exit Sub
    End If
    Me.lblWrongUser.Visible = False

    If rs!Password <> Nz(Me.txtPassword, "") Then
        Me.lblWrongPass.Visible = True
        Me.txtPassword.SetFocus
        Exit Sub
    End If
    Me.lblWrongPass.Visible = False
    DoCmd.OpenForm "frmMenu"
    DoCmd.Close acForm, Me.Name
End Sub