Visual basic with crystal report 8.5 error on reporting

Question

i am dvelping a program base on accounting
Connection Using ADODB through record set...
when view the report through compiler using run vb project method the data show is ok but when run application through MDi form the crystal report show blank data...
my code in mention below
plz help
Dim Ac2 As String
mDATE1 = Format(DTP.Value, "MM/dd/yy")
mDate2 = Format(DTP1.Value, "MM/dd/yy")
Ac2 = TxtCode.Text
Set Rs = New ADODB.Recordset
Rs.Open "delete * FROM tmp1", Con, adOpenKeyset, adLockPessimistic
Set Rs1 = New ADODB.Recordset
Rs1.Open "select  (opdr),(opcr) FROM acoding where acode= '" & TxtCode.Text & "'", Con, adOpenKeyset, adLockPessimistic
Set Rs2 = New ADODB.Recordset
Rs2.Open "SELECT Sum(dr)-sum(cr) as opening from ledger where date < # " & mDATE1 & "# and pcode = '" & TxtCode.Text & "'", Con, adOpenKeyset, adLockPessimistic
Set Rs3 = New ADODB.Recordset
Rs3.Open "select* FROM ledger WHERE DATE BETWEEN #" & mDATE1 & "# AND # " & mDate2 & " # AND pcode between '" & TxtCode.Text & "' AND '" & Ac2 & "'", Con, adOpenKeyset, adLockPessimistic
Set Rs = New ADODB.Recordset
Rs.Open "select * FROM tmp1", Con, adOpenKeyset, adLockPessimistic
    If Rs2.RecordCount <> 0 Then
        DR1 = IIf(IsNull(Rs2!opening), 0, Rs2!opening) + IIf(IsNull(Rs1!OpDR), 0, Rs1!OpDR) - IIf(IsNull(Rs1!OpCR), 0, Rs1!OpCR)
        Rs.AddNew
        Rs!Des = "OPENING BALANCE"
        Rs!pcode = TxtCode.Text
        Rs!DR = IIf(DR1 > 0, DR1, 0)
        Rs!cr = IIf(DR1 < 0, DR1 * -1, 0)
        Rs.Update
    Else
        Rs.AddNew
        Rs!Des = "OPENING BALANCE"
        Rs!pcode = Rs2!pcode
        Rs!DR = IIf(IsNull(Rs1!OpenDR), 0, Rs1!OpenDR)
        Rs!cr = IIf(IsNull(Rs1!OpenCR), 0, Rs1!OpenCR)
        Rs.Update
        End If
If Rs3.RecordCount > 0 Then
    While Not Rs3.EOF
            Rs.AddNew
            Rs!pcode = Rs3!pcode
            Rs!vtype = Rs3!vtype
            Rs!VNO = Rs3!VNO
            Rs!DR = IIf(IsNull(Rs3!DR), 0, Rs3!DR)
            Rs!cr = IIf(IsNull(Rs3!cr), 0, Rs3!cr)
            Rs!Date = Rs3!Date
            Rs!Des = Rs3!Des
            Rs.Update
    Rs3.MoveNext
    Wend
    End If
cr.ReportFileName = App.Path & "\reports\latif.rpt"
cr.WindowState = crptMaximized
cr.Action = 1
end sub
through Debug mod data all data is show but
when run without debug mod  crystal report show data blank..
proceed is that
vb6 delete tem1 table from access
opening sum from ledger table
opening sum form A/C coding table
first add opening in tem1 table
then add all sepsfic data from ledger table to temp table
after that data show in crystal report
kindly Help

Answer 1

Hello,
Thank you for your post.
Based on your description, I am afraid that the issue is out of support of VS General Question forum which mainly discusses
WPF & SL designer, Visual Studio Guidance Automation Toolkit, Developer Documentation and Help System
and Visual Studio Editor.
I suggest that you can consult your issue directly on SAP Crystal Reports:
http://scn.sap.com/community/crystal-reports/content?filterID=content~objecttype~objecttype[thread]
  for better solution and support.
Best regards,
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.