I m using the following method to show report in VB (It Crystal Report 8.5's report)

Dim Report As New CrDaily
Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim StrSel

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

Set Db = New ADODB.Connection
Db.ConnectionString = Conn
Db.Open

Call ViewRep
End Sub

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

End Sub

Public Sub ViewRep()

Set Rs = New ADODB.Recordset
With Rs
.Open "Select * from Tbl_Emp_Att", Db, adOpenDynamic, adLockOptimistic
On Error Resume Next

Report.Text6.SetText "REPORT OF " & FrmDaily.TxtDate.Text

StrSel = "{Tbl_Emp_Att.Att_Date} in Date(" & _
Format(FrmDaily.TxtDate, "yyyy,m,d") & ") to Date(" & _
Format(FrmDaily.TxtDate, "yyyy,m,d") & ")"

Report.DiscardSavedData
Report.Database.SetDataSource Rs
Report.RecordSelectionFormula = StrSel

CRViewer1.ReportSource = Report
CRViewer1.EnableRefreshButton = True

CRViewer1.ViewReport

End With

End Sub

How to set the Database.Path if using the above method.