vb程序出错，帮忙看一下

Private Sub Command1_Click()
Static nErr As Integer
Dim bErr As Boolean
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String

If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户或密码不能为空!", vbCritical, "错误"
bErr = True
Else
Set conn = OpenConnForSqlServer("52B097A2466C496", "bill", "")
strSql = "select * from myuser where 登录帐号= '" & Text1.Text & "' and 密码='" & Text2.Text & "'"
Set rs = OpenRecordset(strSql, conn)
If rs.EOF Then
MsgBox "错误的用户名或密码!", vbCritical, "错误"
bErr = True
Else
Unload Me
Form2.Show
End If
End If

If bErr Then
nErr = nErr + 1
If nErr = 3 Then
Unload Me
Else
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End If
End Sub