菜鸟发问，如何将查询结果传入AdoDc，然后再传入报表

[box1106]

如题！其实我知道这是个简单的问题，但我没能实现它。由select语句得到查询结果，可如何把它传入AdoDc,再传入报表呢？我的代码如下：
'querystring 为得到的select语句


Dim rpt1 As New DataReport1
Dim cnn1 As ADODB.Connection
Dim ado As ADODB.Recordset
Dim strcnn As String

Set cnn1 = New ADODB.Connection

strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data_ Source=E:\wzq\client\db1.mdb;Persist Security Info=False"
cnn1.Open strcnn

Set ado = New ADODB.Recordset

ado.Open querystring, strcnn, , , adCmdText
Set rpt1.DataSource = ado
rpt1.Show 1

可是提示出错，不知这样对不对？谢谢各位大侠帮忙了！