كيف أربط قواعد البيانات أكسس بالفجوال بيسك؟

هذا مثال لكيفية ربط تطبيق Vb.net بقاعدة بيانات من نوع access :

'Module قم بانشاء كلاس من نوع

 'نجلب 
Imports System.Data.OleDb 
Module bdaccess
'تعريف رابط الاتصال بقاعدة البيانات
Dim MyConnection As New System.Data.OleDb.OleDbConnection()
'دالة اربط الاتصال
Public Sub connection(ByVal namebd As String)
'اسم قاعدة البيانات namedb
Try
MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & namebd
'فتح الاتصال
MyConnection.Open()
Catch ex As Exception
'عرض رسالة في حالة تعذر الاتصال
MessageBox.Show("لا يمكن الاتصال لسبب :" & ex.Message)
End Try
End Sub
' دالة انهاء الاتصال
Public Sub deconnection()
Try
MyConnection.Close()
Catch ex As Exception
MessageBox.Show("لايمكنك الاتصال لسبب :." & ex.Message)
End Try
End Sub

'لتنفيذ أمر سكوال من نوع جلب المعلومات  select
Public Function access(ByVal requetesql As String) As DataSet
'مثال
'requestdsl="select * from user"
Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim MyDataSet As DataSet = New DataSet("MesDonnées")
Dim StrConnect As String
Dim MyCommand As OleDbCommand

Try
MyCommand = New OleDbCommand(requetesql, MyConnection)
MyAdapter.SelectCommand = MyCommand
MyDataSet.Clear()
MyAdapter.Fill(MyDataSet, "user")
'المعلومات المستخرجة موجودة في جدول مسمى   user
' MyDataSet.Tables(0) أي
Return MyDataSet
Catch ex As Exception
MessageBox.Show("لا يمكن ربط الاتصل بسبب :." & ex.Message)
End Try
End Function
End Module

يمكنك الاستفادة من هذا الرابط الرسمي لمايكرسوفت : https://msdn.microsoft.com/fr-fr/library/system.data.oledb.oledbconnection(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1