大学生手游调查问卷PPT:各位高手帮忙解决一个VB的问题

Private Sub Command1_Click()
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim msgtext As String
UserName = ""
If Trim(Text1.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus

Else

txtsql = "select * from users where USERNAME='" & Text1.Text & "'"
Set mrc = ExecuteSQL(txtsql, msgtext)
If mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Else

If Trim(mrc.Fields(1)) = Trim(Text2.Text) Then
ok = True
mrc.Close
Me.Hide
main.Show

UserName = Trim(Text1.Text = "")
Else
MsgBox "密码输入不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Text2.Text = ""
End If
End If
End If

micount = micount + 1
If micount = 3 Then
Me.Hide
End If
Exit Sub
End Sub
这是个VB+ACCESS的公寓管理信息系统的登陆界面，我要实现无需密码就可进入，但运行时老出现错误，指着" UserName = """这行说变量错误，大家帮忙解决一下，谢谢~~