following is a sub from a form which calls my DataReport:

Private Sub Command1_Click()
MsgBox "ok"
If optAppr = True And optAll = True Then
MsgBox "1"
Dim rs As ADODB.Recordset
MsgBox "2"
Dim strsql As String
MsgBox "3"
Set rs = New ADODB.Recordset
MsgBox "4"
Set rs = adconn.Execute("SELECT * from ApplDetail where appr = true and level1 =true and ApprDate >= " & DTPicker1.Value)
MsgBox "5"
Set rptLeaveApplied.DataSource = rs
MsgBox "ApprAll"
rptLeaveApplied.Show 'DataReport
End If


i run my EXE file, message boxes "ok", "1", "2", "3", "4", & "5" pops up, but not the last one. error message:

Run-time error '713':
Application-derfined or object-defined error.

so it's the problem of "rptLeaveApplied"(a Datareport control)'s datasource, right? but why does it work fine on PC with VB6 installed?
i tried to set it on the properties, but seems that couldn't because that only works when DataEnvironment is used.
have any idea ?
thanks!!!