原来我引用的dataenvironment中的datareport 打印功能 用一个command 按钮点击实现

Private Sub Command2_Click()

Dim aa As Integer

    DataReport1.Show
    
    If MsgBox("是否现在打印?", vbInformation + vbOKCancel) = vbOK Then
        DataReport1.PrintReport
    End If

End Sub

原来都好用

我后来重装了vb  点击command时，提示“无效数据源”

这是什么原因呢 

敬请指教