这样调用，在程序里加载数据源
Dim a As DataReport
Private Sub Command1_Click()
    Set a = New DataReport1
End Sub
Private Sub Command2_Click()
    Unload a
End Sub

兄弟，你的VB还根本没有入门，你不要再弄数据报表了，认真的把VB的语言、方法、函数、及面向对象的一些知识努力学习一下吧。这些东西在MSDN中都有，里面还有一些入门的例子。