查询问题

Question

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim Sql, str As String
cn.Open "SEVER=" & SEVER & ";DSN=" & DSN & ";UID=sa;PWD=521521"
str = Text1.Text
rst.Open "select P_id,P_name from tblinput where P_id='" & str & "'", cn
Adodc1.ConnectionString = cn.ConnectionString
Adodc1.RecordSource = "select P_id,P_name from tblinput where P_id='" & str & "'"
DataGrid1.Visible = False
Adodc1.Refresh
set datagrid1.datasource=adodc1    '这一句DataGrid1.Visible = True

Answer 1

直接给值可以吗
Adodc1.RecordSource = rst