关于ado控件和SQL查询语句的问题！（在线等待）

Question

Option ExplicitPrivate Conn As New ADODB.Connection
Private rs As New ADODB.RecordsetPrivate Sub cmdOk_Click()
  Dim Sql As String
  Sql = "select * from ProSorts where SortName = " & txtSortName.text
  rs.Open Sql, Conn, adOpenKeyset, adLockPessimistic
  
  If rs.EOF = False Then
      MsgBox "数据已经存在！"
  Else
      MsgBox "数据不存在！"
  End If
End If
Private Sub Form_Load()
  Dim strConn As String
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\DataBase\DBMain.mdb"
  '使用客户端数据游标
  Conn.CursorLocation = adUseClient
  '打开Access的连接
  Conn.Open strConn
End Sub
麻烦各位帮我看看这段代码问题出在哪里。我想通过SQL查询符合txtSortName.text的一条数据是否存在于表SortName之中，但是测试了不知为什么就是不行，各位大侠可以帮帮我吗？或者加我QQ  138001655，谢谢大家！感激不尽！

Answer 1

Sql = "select * from ProSorts where SortName = " & txtSortName.text
rs.Open Sql, Conn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then '这里改为这样试试下
MsgBox "数据已经存在！"

Answer 2

Sql = "select * from ProSorts where SortName =' " & txtSortName.text &"' "

Answer 3

msgbox sql看看字符串内容，还有显示记录数看看

Answer 4

谢谢！可以了！原来是  Sql = "select * from ProSorts where SortName =' " & txtSortName.text &"' " 在SortName赋值等号的后面多了个空格 呵呵