Get Crystal Report Recordcount Using VB6

Hello All,

I'm using Crystal Reports 8.5 and VB6. What I have is an automated process that runs several reports. I would like to load the report recordcount into a variable to be used in my VB code. How do I pull that info. I'm using the following connection string into my Oracle DB. I've also included my print code. Please include an example. I'll give this one high points because it will help me out big time. Thanks in advance for any help you can give me.

Thanks

' Logs onto server in Crystal Reports
  crApplication.LogOnServer "p2sodbc.dll", "O8IPROD", O8IPROD, "username", "password"
 
  ' Prints the Customer Copy Invoices
  Set crReport1 = crApplication.OpenReport("c:\test_invoice_GSCopy.rpt")

crReport1.DiscardSavedData

crReport1.PrintOut False