how call crystal report9 file in vb form

[Dattatray Gaikw]

in form

Private Sub cmdall_Click()
finerpt.ReportF ileName = App.Path & "\database\fine rpt.rpt"
Call show_report(fin erpt)
End Sub

in Module1

Public Sub connection()
con.Provider = "Microsoft.jet. OLEDB.4.0"
con.ConnectionS tring = App.Path & "\database\lms. mdb"
End Sub
Public Sub show_report(rpt As Object)
rpt.WindowState = crptMaximized
rpt.Destination = crptToWindow
rpt.PageZoom (100)
rpt.Action = 1
End Sub

[Dattatray Gaikw]

plz reply i wait