how to access report

hi friends,

can u tell me how to show access reports through vb

regards
ishikha

'Give reference Microsoft Access 9.0 Object Library


Dim con As New Access.Application

Private Sub Command1_Click()
con.OpenCurrentDatabase ("C:\DataBase.mdb")
con.Visible = True
con.DoCmd.OpenReport reportname:="MyReport", view:=Access.acReadOnly

Set con = Nothing
End Sub