把datareport直接绑定到recordset
set datareport.datasource=recordset

解决方案 »

  1.   

    可以在执行打印的语句加上以下一句:
    If datareport1.rsCommand1_分组.State = adStateOpen Then
    datareport1.rsCommand1_分组.Close
    End If
      

  2.   

    写错了吧,报表有connection属性吗?
    应该写这个吧
    if DataEnviornment1.Connection1.State = adStateOpen then
       DataEnviornment1.Connection1.State.close
    end if
      

  3.   

    呵呵错了,

    DataEnviornment1.Connection1.close