问一个查询数据库的简单问题

VB连接AC数据库成功，也能用DataGrid控件加载库中的某个表，代码如下：
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Conn.CursorLocation = adUseClient
Conn.Open strConn
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from j", Conn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = Rs
现在需要在一个文本框中输入内容，点击按钮查询出符合条件的记录，显示在一个列表框中，请问代码该怎么修改？
我想着代码可能是这个：
Rs.Open "SELECT * FROM Info WHERE kc=" & Trim(Text1.Text) & ""
但是没有效果，请帮帮我！