datareport和数据库相连的代码如何写，不要用数据环境，

Question

请参看我的贴子！不要忘了给分！
http://www.csdn.net/expert/topic/247/247002.xml?temp=.

Answer 1

Dim rs As ADODB.Recordset
Dim conn As ADODB.Connection
Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "provider=microsoft.jet.oledb.3.51;" & "data source=" + App.Path + "\date_use.mdb"
conn.Open
rs.Open "bag", conn, 1, 1
DataReport1.DataSource = rs
For i = 0 To List2.ListCount - 1
DataReport1.Sections("section1").Controls.Item("text" & (i + 1)).DataField = List2.List(i)
Next
这段代码是在一个FORM中的一个COMMAND_CLICK下写地
可是提示有错呀，他讲没有找到方法或是数据成员!!!为什么？？

Answer 2

看看这些是否对你有所帮助http://www.cnskye.com/skill/list.asp?id=5

Answer 3

是  DataReport1.DataSource = rs  这个地方！！！

Answer 4

set DataReport1.DataSource = rs