我用了一个控件DataGrid，
Private Sub Form_Load()
Dim SQL As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Connect As String
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jchisn;Data Source=JXJXYY"
Set Conn = New ADODB.Connection
Conn.Open Connect
SQL = "select *  from AdviceListView"
Set rs = New ADODB.Recordset
rs.Open SQL, Conn, adOpenStatic
Set DataGrid1.DataSource = rs
End Sub
现增加文本框，作为查询条件，不知如何写？请各位看一看。

[[it] 本帖最后由 jxawgyl 于 2008-6-25 08:41 编辑 [/it]]

是的，我加上：SQL = "select * from dbo.AdviceListView where offname = '" + Trim(Text1.Text) + "'"
在文本框中录入数据时，没有任何变化。这是为什么？