datareport问题，在线等，一定给分！

Question

Dim mywork As new Workspace
Dim mydb   As  new database
Dim myrs   As new Recordset试试。

Answer 1

同意楼上的，或者你赋值得顺序 不对，要先执行set语句设置数据源，在对datareport控件赋值

Answer 2

Dim mywork As Workspace
Dim mydb   As database
Dim myrs   As Recordset
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
Set mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase(str & "libdata.mdb", False,False, ";pwd=san")
Set myrs = mydb.OpenRecordset("select * from bookinfo")
set datareport1.datasource=myrs提示类型不匹配！

Answer 3

你设置datareport中的各个rptTextBox的datafield属性了吗？