از خانم شاپرک متشکرم
من هم نتونستم ازش استفاده کنم اما یک چیز ساده تر پیدا کردم که خیلی خوب و مناسبه .
کد زیر را باید در VB به کار ببرید و یک فایل exe بسازید
Const cDatabaseToOpen = "c:\sample.mdb"
On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
If AcApp.Version >= 10 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase cDatabaseToOpen
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
Else
AcApp.Quit
MsgBox "Failed to open '" & cDatabaseToOpen & "'."
End If
حالا با اجرای اون فایل مورد نظرتون بدون سوال در مورد Security بالا میاد .