在VB中编辑窗体登陆界面这个代码请问哪里出错了啊?
求解!!!
Private Sub Command6_Click()
If IsNull(Trim(Me.用户名)) Then
DoCmd.Beep
MsgBox ("请输入用户名!"), vbOKOnly + vbExclamation, "错误"
Else
If IsNull(Trim(Me.密码)) Then
DoCmd.Beep
MsgBox ("请输入密码!"), vbOKOnly + vbExclamation, "错误"
Else
Me.RecordSource = "select * from 登陆表 where 用户名='" & Me.用户名 & "' and 密码='" & Me.密码 & "'"
'Set rs = GetRS(Str)
If Me.Recordset.EOF Then DoCmd.Beep
MsgBox ("用户名不存在或密码错误,请重新输入!"), vbOKOnly + vbExclamation, "错误"
Me.用户名 = ""
Me.密码 = ""
Me.用户名.SetFocus
Exit Sub
Else
DoCmd.Close
If n = 5 Then
DoCmd.Close
Else
n = n + 1
MsgBox ("欢迎进入胡大美美的查询界面!")
check = True
DomCmd.Openfform ("主查询窗体")
End If
End If
End If