VB6.0 做的登录请教？

Private Sub Command1_Click()
If LKA >= 3 Then   'LKA变量是模块级变量，是  Integer 数据类型
   MsgBox "你已经登录了三次均不成功，不能继续登录了!", 16, "登录超次！"
   End
End If
If Text1.Text = "" Then
   MsgBox "用户名不能为空,请重新输入!", 16, "提示"
   Exit Sub
End If
If Text2.Text = "" Then
   MsgBox "密码不能为空,请重新输入!", 16, "提示"
   Exit Sub
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "
RS.Open "Select * From 注册 Where 用户='" & Text1.Text & "'", cn, 2, 3
    If Not RS.EOF Then
        If RS!密码 = Text2.Text Then
            MsgBox "登录成功！", 64, "已经登录！"
            RS.Close
            Set RS = Nothing
            cn.Close
            Set cn = Nothing
            Unload Me
            Form3.Show
            Exit Sub
        Else
            MsgBox "密码错误！", 16, "错误！"
            Text2.Text = ""
            Text2.SetFocus
            LKA = LKA + 1
        End If
    Else
        MsgBox "用户名错误！", 16, "错误！"
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        LKA = LKA + 1
    End If
RS.Close
Set RS = Nothing
cn.Close
Set cn = Nothing
End Sub