重复提示密码错误

感谢版主回复，下面是我全部代码，请帮助看看哪里出问题了。谢谢。

Dim targetTable As String
Dim sourceTable As String
Dim sourceFile As String
Dim password As String
Dim dlcg As String
Dim bm As String
dlcg = "登陆不成功"
    '功能：同结构表导入
    '参数：targetTable -- 本地目标表表名
           targetTable = "tb_奖金_部门"
    '      sourceTable -- 源表表名
           sourceTable = "code_用户名"
    '      sourceFile  -- 源数据库文件地址
    '      password    -- 源数据库密码
    '示例：call UpdateTable("tb2","tb1","F:\jjtb.mdb","A123456")
    Dim ssql As String
    Dim strConn As String
    Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset, rs3 As ADODB.Recordset
    Dim i As Long, j As Long
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "F:" & "\jjtb.mdb;Persist Security Info=False;Jet OLEDB:database Password=a123456;"
    ssql = "select * from " & sourceTable
    rs2.Open ssql, strConn, adOpenKeyset, adLockOptimistic
   
 

If IsNull(Me.yh) Then
MsgBox "请输入[用户姓名]!", vbCritical, "系统提示"
Me.yh.SetFocus
Me.yh.Dropdown
Exit Sub
End If
If Len(Nz(Me.mm, "")) < 1 Then
MsgBox "请务必输入[用户密码]!", vbCritical, "系统提示"
Me.tc.SetFocus
Me.mm.SetFocus
Exit Sub
End If
Dim m As String
m = Me.mm

    For i = 1 To rs2.RecordCount
       If Me.yh = rs2!姓名 And Me.mm = rs2!密码 Then
       dlcg = "登陆成功"
       bm = rs2!部门
       End If
        rs2.MoveNext
    Next

    rs2.Close: Set rs2 = Nothing

If dlcg <> "登陆成功" Then
MsgBox "密码错误aaaa", vbCritical, "系统提示"
Exit Sub
End If
DoCmd.OpenForm "open"
Forms!Open!yhm = Me.yh
Forms!Open!bm = bm
DoCmd.Close acForm, "dlct"