点击按键自动生成一个单号，并把DataReport给调出来，用DataReport的打印预览打印报表后，报表自动消失，回到原来我做的程序界面，我再点击按键，又把DataReport调出来，但单号还是跟原来第一次调出来一样，未更新，只能把整个程序退出，并重新登录后，才看到更新的数据？
  请教，如何不能退出程序也能更新DataReport预览里的信息。是否DataReport里有类似 close,或exit等方法？

这样调用，在程序里加载数据源
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中都有，里面还有一些入门的例子。