用vb编的简单的access登录 为什么不能运行 无任何错误提示

Private Sub 登录_Click()
On Error GoTo Err_登录_Click
Dim str As String
Static n As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If n < 3 Then
If IsNull(Me.UID) Or IsNull(Me.PSW) Then
MsgBox ("1")
Else
str = "select * from 借书证 where ID='" & Me.UID & "'and Psw='" & Me.PSW & "'"
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
DoCmd.OpenForm "Guest"
If Me.UID = "a2" Then
DoCmd.OpenForm "admin"
End If
Else
MsgBox ("2")
End If
End If
n = n + 1
Else
MsgBox ("over 3")
DoCmd.Close
End If
Exit_登入_Click:
Exit Sub
Err_登入_Click:
MsgBox (Err.Description)
Resume Exit_登入_Click
End Sub

用VB编个简单的程序 用VB编个简单的程序. 怎么用VB的控件数组编简单的计算器 帮我用VB编一个简单的计算器 用VB编一个简单的计算器程序 用VB编一个简单的算命器? 用vb编一个很简单的小程序 用VB编一个符合如下要求的简单程序 高分求救：发布VB+access编的程序出问题了！ VB+ACCESS的问题