请帮我看一下，我这个登录VB代码那里出问题了

点登录 就提示“连接无法用于执行此操作。在此上下文中它可能已补关闭或无效。

Private Sub 登录_Click()

 On Error GoTo Err_登录_Click
  Dim strSQL As String
  Dim rs As New ADODB.Recordset
  If IsNull(Me.用户名) Or Me.用户名 = "" Then
  DoCmd.Beep
  MsgBox ("请输入用户名！")
  ElseIf IsNull(Me.密码) Or Me.密码 = "" Then
  DoCmd.Beep
  MsgBox ("请输入密码！")
  Else
  strSQL = "SELECT*FROM 管理员 WHERE 用户名=""&Me.用户名&""and 密码=""&Me.密码&"""
  Set rs = GetRs(strSQL)
  If rs.EOF Then
  DoCmd.Beep
  MsgBox ("用户名或密码名错误！")
  Me.用户名 = " "
  Me.密码 = " "
  Me.用户名.SetFocus
  Exit Sub
  Else
  DoCmd.Close
  check = True
  DoCmd.OpenForm ("进销存管理")
  End If
  End If
  Set rs = Nothing
Exit_登录_Click:
  Exit Sub
Err_登录_Click:
  MsgBox (Err.Description)
  Debug.Print Err.Description
  Resume Exit_登录_Click
End Sub