How to connect MS Access database to Crystal Report 8.5 using Visual Basic 6.0?

--------------------------------------------------
-------CODE-----

Dim Report As New crCGDepAsset

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Report = Nothing
End Sub

Is this an example of how to connect or you are missing something?   You can set datasource

rpt.Database.SetDataSource rs

where rs is ADO recordset

____________________________
If you find the answer helpful, please mark this topic as solved.