ربط الاكسس بالفيجوال بيسك

هنالك عدة طرق للربط الطريقة الاولى :
- في حال وجود قاعدة بيانات اسمها Mag2 وكلمة السر هي 1234_1 يكون الربط على الشكل التالي :
في قسم التصريحات العامة نكتب :

Public Cn As ADODB.Connection
Public Cn2 As ADODB.Connection

Public Sub ConMag2()
Set Cn2 = New ADODB.Connection
Cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "" & "mag2.mdb;" & "Jet OLEDBatabase Password=1234_1;"
End Sub

الطريقة الثانية :
- في حال وجود قاعدة بيانات اسمها Mag1 وكلمة السر هي 1234_1 يكون الربط على الشكل التالي :
في قسم التصريحات العامة نكتب :
Public PWD As String
Global sConnect, PWDPWD As String
Global DB As Database
Global WS As Workspace

Global patf1 As As String

Public Sub ConMag1()
Dim DS As String
Patf1 = App.Path + "\MAG1.mdb"
Patf1 = Trim(Patf1)
PWDPWD = "1234_1"
sConnect = ";pwd=" & PWDPWD:
'gnReadOnly = False
Set WS = DBEngine.CreateWorkspace("DBTEMP", "ADMIN", "")
Set DB = OpenDatabase(Patf1, False, False, sConnect)

End Sub