الاخوة الكرام
السلام عليكم ورحمة الله وبركاته
لدي قاعدة بيانات عليا حماية بملف System.mdw
اريد الربط بمجموعة من الجداول بها في قاعدة بيانات اخرى بدون اذونات
ووجدت هذا الكود ولم احسن استخدامه
اكون شاكرا لاهل الخبرة على المساعدة
وان امكن بمثال
ولكم خالص الشكر والتقدير
Dim MyConn As New ADODB.Connection
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
"Data Source=C:\...\JetSecurity.MDB;" & _
"Jet OLEDB:System database=C:\...\System.MDW"
MyConn.Open ConnectionString:=strConn, _
UserID:="Admin", Password:="MyPwd"