查询的问题

[zhujiajia2000]

已有数据库，字段为公交线路和车站名，用 adodc 控件与数据库相连，已有控件datagrid,adodc,text,command 现做查询功能如下：
在Text中输入车站名，按command键，datagrid中出现相关记录。
希望提供代码！

[hsanzhang]

private sub command_click()
if text.text<>"" then
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim strsql as string
with cn
.provider="sqloledb"
.connection="data source=aa;initial catalog=b;user id=sa;password=sa"
.open
end with
strsql="select * from table where 車站名='"& trim(text.text) &"'"
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open strsql, cn, adOpenDynamic, adLockOptimistic
set datagrid.datasource=rs
end if
end sub