[أبو عمر]

لاتنسى الريفرنس
'Add 1 reference to Microsoft Access X.0

Private Sub Command1_Click()
Dim ac As Access.Application
Set ac = New Access.Application

ac.OpenCurrentDatabase ("c:\my.mdb")

ac.DoCmd.OpenReport "ReportName", acViewNormal
ac.CloseCurrentDatabase
End Sub

بالتوفيق