VB datareport问题 <50分>

给你个参考代码：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bizhub.mdb;Mode=ReadWrite;Persist Security Info=False"
SqlStr = "Select * From 拆件"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataReport1.DataSource = rst
DataReport1.Sections("Section1").Controls("Text1").DataField = "机器型号"
DataReport1.Sections("Section1").Controls("Text2").DataField = "包装条形码"
DataReport1.Show
实在不行的话留个QQ我给你看看

DataReport1.Sections("Section1").Controls("Text1").DataMember=report
DataReport1.Sections("Section1").Controls("Text1").DataField = dayic