vb6 自带报表 代码设置datasource属性时死机，啥问题呢，谢谢。挺急的

Question

代码开始：

E_打印.Commands("实验室检查报告").CommandType = adCmdText

'--------“实验室检查报告”是数据环境下的一个command-----------
E_打印.Commands("实验室检查报告").CommandText = StrSql
Set R_检查报告.DataSource = E_打印

'-------R_检查报告为datareport报表名--------
R_检查报告.DataMember = "实验室检查报告"
E_打印.实验室检查报告 '打开记录集
If E_打印.rs实验室检查报告.RecordCount = 0 Then
MsgBox "没有数据不能打印！您的操作被取消！", vbInformation
Exit Sub
End If
R_检查报告.Show

代码结束。

我在本地测试的时候报表是可以用的，数据也准确。但是我换了台电脑，把本地数据库变为局域网内另一台电脑的数据库。程序就出问题了，运行某行代码就像死机了一样。 我单步调试程序，发现问题出在这行代码：

Set R_检查报告.DataSource = E_打印

请各位大哥帮忙搞定啊 领导等着我解决问题呢。

vb6+sqlserver