(加急)在线等：大哥们帮忙啊？关于报表里SQL连接问题！！

我使用dataEnvironment与DataReport设计数据报表时：以下段是预览按钮里的代码，主要要解决的问题是预览当前某一个数据库记录里内容并打印：Private Sub mnuPreview_Click()
    Dim SqlString As String
    On Error Resume Next
    Dim Reset As Recordset
    
    SqlString = "select * From 变电站 Where ID=" & data1.Recordset!ID
    Set Reset = DataEn.rsN事故预想
    Reset.Open SqlString
    
    Set DataR_事故预想.DataSource = Reset
    
    DataR_事故预想.Show
    
    DataR_事故预想.Refresh
    Reset.Close
   
End Sub执行这段代码进行预览的时候就什么反应都没有，但预览打印的窗口会出来，只是里面没有什么被预览的东西。但是如果我把它改成：
Private Sub mnuPreview_Click()
    Dim SqlString As String
    On Error Resume Next
  
    DataR_事故预想.Show
   
    DataR_事故预想.Refresh
End Sub是可以预览的，只是不是当前记录，而是那个数据库里的全部内容。当然这个时候我已经在“DataR_事故预想”里设定好了datasource与datamember。请问各位高手这到底是怎么回事啊？