dim sql as string
sql ="sql语句"
If DataEnvironment1.rsCommand3.State <> adStateClosed Then
DataEnvironment1.rsCommand3.Close
End If
If Right$(Trim$(App.Path), 1) = "\" Then
DataEnvironment1.Connection1.Open App.Path & "数据库"
Else
DataEnvironment1.Connection1.Open App.Path & "\数据库"
End If
DataEnvironment1.rsCommand3.Open sql
Set DataReport5.DataSource = DataEnvironment1
DataReport5.DataMember = "command3"
DataReport5.Show
这里面command3和datareport5 根据你的实际情况来写
command3是在数据环境设计器中添加的