为什么VB提示我编译错误

在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

MsgBox ("请输入用户名！"), vbOKOnly + vbExclamation, "错误"
这里就错了
应该是
MsgBox "请输入用户名！", vbOKOnly + vbExclamation, "错误"

下面还有几个类似的错误

数据库的部分，没办法判断对错，你运行下，有错误把提示信息贴出来

编译的时候是显示
第三个else 没有if匹配