[أبو عمر]

وعليكم السلام
Add a reference to the Microsoft.Office.Interop.Access
بعد اضافة المرجع

PHP كود :

Private Sub btnAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccess.Click
        Dim MSA As New Microsoft.Office.Interop.Access.Application
        MSA.Application.Visible = True
        MSA.OpenCurrentDatabase("E:\temp\Northwind.mdb", False)
        MSA.Application.DoCmd.OpenReport("Invoice", AcView.acViewNormal)
    End Sub 


مع استبدال اسم ومسار قاعدة البيانات
لم اجربه
لكن كنت استخدم في VB6 i الكود التالي ويعمل

PHP كود :

'Add 1 Command Button to your form.
'Add 1 reference to Microsoft Access X.0
'Object Library (From
'VB Menu choose Project -> References...,
'mark the Microsoft Access X.0
'Object Library check box and press OK).

'Form Code
Private Sub Command1_Click()
    Dim ac As Access.Application
    Set ac = New Access.Application
    ' open the database.
    ' replace the "c:\myDir\myDBFileName.mdb" below with your
    ' database file name
    ac.OpenCurrentDatabase ("c:\myDir\myDBFileName.mdb")
    ' uncomment the line below if you want to see Print Preview
    ' ac.Visible = True
    ' replace the acViewNormal below with acViewPreview
    ' if you want to see Print Preview
    ac.DoCmd.OpenReport "Catalog", acViewNormal
    ' delete the line below if you want to see Print Preview
    ac.CloseCurrentDatabase
End Sub 


جرب الأول وشوف
بالتوفيق