这个问题要老手出马了,一定很复杂
If DataEnvironment1.rsCommand1.State = adStateOpen Then '如果打开则关闭
DataEnvironment1.rsCommand1.Close
End If
DataEnvironment1.rsCommand1.Open "查询语句" ’查询语句为SQL语句
If DataEnvironment1.rsCommand1.EOF Then '是否找到
MsgBox "没有当前记录!"
Else
DataReport1.Show '报表1显示你所找到的信息
endif
不知能不能帮你~~```试一下吧~~`````