请各位帮我看下这段查找程序,我不知道问题出在哪了?
Private Sub Command1_Click()
Dim txtsql As String
Dim cn As New Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=ll;Data Source=LLUO"
Set rs.ActiveConnection = cn
txtsql = "select * from luo where xm= '" & Trim(Text1.Text) & "'"
rs.CursorType = adOpenDynamic
rs.Open txtsql, cn, adOpenDynamic, adLockOptimistic
If Text1.Text = "" Then
MsgBox "请输入姓名!"
Exit Sub
End If
rs.MoveFirst
If Text1.Text = rs.Fields("xm") Then
Text2.Text = rs.Fields(1)
Else
MsgBox "没有该姓名!"
End If
End Sub
老是提示没找到姓名,可是我输入的姓名是数据表有的