关于Datareport的问题：我错在那里呢？

[9koran]

源码如下：为什么总提示“无效数据源”？

Private Sub Command3_Click()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "provider = Microsoft.Jet.OLEDB.4.0;Data Source = *.mdb;"
Dim adoPrimaryRS As ADODB.Recordset
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "select * from C_INF", cnn, adOpenStatic, adLockOptimistic

Do While Not adoPrimaryRS.EOF

DataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop

Set DataReport1.DataSource = adoPrimaryRS
DataReport1.Show
end sub

[gzqg]

将这句话提到添加项目前：Set DataReport1.DataSource = adoPrimaryRS
正确代码是：
Set DataReport1.DataSource = adoPrimaryRS

Do While Not adoPrimaryRS.EOF

DataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop