[الكاتب]

كود :

Imports Access = Microsoft.Office.Interop.Access

Public Class FrmReports

   Dim oAccess As Access.application

   Private Sub btnSumByPlan_Click(sender As Object, e As EventArgs) Handles btnSumByPlan.Click

       oAccess = CreateObject("Access.Application")
       oAccess.visible = True
       oAccess.opencurrentdatabase ("Provider=Microsoft.ACE.OLEDB.12.0;DataSource=|DataDirectory|\CLI_CRVM.accdb")

       oAccess.docmd.openreport(ReportName:="SumByPlan", View:=Access.AcView.acViewPreview)

   End Sub
End Class