登陆界面运行错误求助

[fufuxt]

Private Sub CmdOK_Click()
Dim strUserName As String, strPassword As String
strUserName = txtUserName.Text
strPassword = txtPassword.Text
If strUserName = "" Then
MsgBox "ﾇ・菠・ﾃｻｧﾃ訒｡", vbOKOnly + vbCritical, "ｾｯｸ・
txtUserName.SetFocus
Exit Sub
End If
If strPassword = "" Then
MsgBox "ﾇ・菠・ﾜﾂ・｡", vbOKOnly + vbCritical, "ｾｯｸ・
txtPassword.SetFocus
strUserName = MakeStr(strUserName)
strPassword = MakeStr(strPassword)
End If
If MyUser.ExistUser(strUserName) = False ThenMsgBox "ｴﾋﾓﾃｻｧｲｻｴ贇ﾚ｣｡", vbOKOnly + vbCritical, "ｾｯｸ・
txtUserName = ""
txtUserName.SetFocus
Exit Sub
End If
MyUser.GrtInfo (strUserName)
If MyUser.strPWD <> strPassword Then
MsgBox "ﾃﾜﾂ・﨔｡", vbOKOnly + vbCritical, "ｾｯｸ・
txtPassword = ""
txtPassword.SetFocus
Exit Sub
End If
End Sub

Public Function ExistUser(ByVal UserName As String) As Boolean
Dim rs As New ADODB.Recordset
strSQL = "SELECT* FROM[ﾓﾃｻｧｱ偰WHERE ID='" + Trim(tUserName) + "'"
Set rs = QueryExt(strSQL)
If Not rs.EOF Then
ExistUser = True
Else
ExistUser = False
End If
End Function