请问 在datareport 中,报报表部分与数据源不匹配??

Question

请问 在datareport 中,报报表部分与数据源不匹配??
代码如下:
数据库SQL :
     Dim con As ADODB.Connection     Set con = New ADODB.Connection
    con.CursorLocation = adUseClient
     k = App.Path + "\Style.mdb"
     con.Open "provider=microsoft.jet.oledb.4.0;data source=" + k
     Set rs = New ADODB.Recordset
     rs.Open "select * from style", con, adOpenDynamic, adLockOptimistic
报表部分:
     Set DataReport1.DataSource = rs
  
     With DataReport1.Sections("Section1")
          .Controls("Text1").DataField = "ProductName"
      End With    DataReport1.Show
其中ProductName 是数据表中的一个字段.
   为什么还要报错呢 ??谢谢各位啦!

Answer 1

Set DataReport1.DataSource = rs
 设置不对。