Data Report Problem?????????Need Help

[robertx]

Try this:

Dim strConnectString as String
Dim strSQL as String
Dim sCaptionString As String
strConnectString = "..........."
'(If different to default)
strSQL = "SELECT ...... FROM............"
sCaptionString = "................"
Set DataEnvironment1 = Nothing
DataEnvironment1.Connection1.ConnectionString = strConnectString
DataEnvironment1.rsqryQuery1.Open strSql

Report1.Sections("Section4").Controls("Label1").Caption = sCaptionString
'(If you want to change label caption at run time)

Report1.Refresh
Report1.Show
DataEnvironment1.rsqryQuery1.Close
Set DataEnvironment1 = Nothing