谁能给一个DataReport绘制好表格与数据库联接的示例

新手求救:谁能给一个DataReport绘制好表格与数据库联接的示例,我折腾好几天了,不会弄,hg_321@yahoo.com.cn --------------------编程问答-------------------- 自已顶一下 --------------------编程问答-------------------- 没人采我吗?  我用数据环境设置数据源时:Connection1设置没问题,"测试连接成功",但在设置Command时,"连接:Connection1","数据库对象:表","对象名称:选时出来找不到指定模块";改用"SQL语句:点SQL生成器出来非指定连接或连接不能建立"。有谁知道这是咋回事呀？
好心人，给个用编码给DataReport提供数据源，最好报表上有象Excel一样的表格,帮帮忙！！！
             --------------------编程问答-------------------- 刚写了个代码,出错,是怎么回事:

Private Sub DataReport_Initialize()
    Dim Adors     As New ADODB.Recordset
    Dim Adoconn     As New ADODB.Connection
    Dim Sqlstr As String

    Sqlstr = "provider=Microsoft.Jet.OLEDB.4.0;"
    Sqlstr = Sqlstr & "data source=" & App.Path & "\c12.mdb"
    Adoconn.Provider = "MSDataShape.1 "
    Adoconn.Open Sqlstr

    Dim strs     As String
    strs = "select   *   from sum_tmp"

    Adors.Open strs, Adoconn, adOpenKeyset, adLockOptimistic
    Set DataReport1.DataSource = Adors
    With DataReport1
        .Sections("section1 ").Controls.Item("text1 ").DataField = Adors.Fields(1).Name
        .Sections("section1 ").Controls.Item("text2 ").DataField = Adors.Fields(2).Name
        .Sections("section1 ").Controls.Item("text3 ").DataField = Adors.Fields(3).Name
        .Sections("section1 ").Controls.Item("text4 ").DataField = Adors.Fields(4).Name
        .Sections("section1 ").Controls.Item("text5 ").DataField = Adors.Fields(5).Name
        .Sections("section1 ").Controls.Item("text6 ").DataField = Adors.Fields(6).Name
        .Show
    End With
End Sub

运行报:未找到对象'section1',一般dataMember=数据环境中的command1,这里加什么?那位高手替我完善好吗?

补充：VB ,  数据库(包含打印，安装，报表)