看看下面这个VB登录系统，高手指点下！

[geduo0000]

Private Sub Cmdlog_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "dsn=CSPE系统"

If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名和密码不能为空！请重新输入", vbOKOnly + vbInformation, "友情提示"
Form2.SetFocus
Exit Sub
End If

Dim sql As String
sql = "select * from 用户 where 用户名='" & Text1.Text & "'and 密码= '" & Text2.Text & "'"
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockReadOnly
With rs
If .State = adStateOpen Then .Close
.Open sql
If rs.EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me
Else
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
Form1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
Else
Unload Me
Form2.Show
End If
End With
End Sub
Private Sub Cmdcancel_Click()
Unload Me
End Sub


运行结果显示不能比较text,ntext,image除非使用IS NULL或LIKE运算符

我该怎么办？

[ArmStronger]

设断点看看什么地方报的错啊
还有注意代码最好缩进一下

[lsztzccby]

sql = "select * from 用户 where 用户名='" & Text1.Text & "'and 密码= '" & Text2.Text & "'"
and前没有空格

[hehaiyi2008]

sql = "select * from 用户 where 用户名='" & Text1.Text & "' and 密码= '" & Text2.Text & "'"