Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim asd As New ADODB.Connection
Dim rec As New ADODB.Recordset
asd.Open("Provider= Microsoft.Jet.OLEDB.4.0;")

asd.Open("Data Source= c:\myDb.mdb;")

End Sub

כשאני לוחץ על הכפתור הוא מסמן לי בצהוב את השורה :

asd.Open("Provider= Microsoft.Jet.OLEDB.4.0")

למה ?

asd.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myDb.mdb"

פשוט במבנה התוכנית שלך, כאשר התוכנית מנסה לפתוח את הקישור למסד הנתונים בשורה הראשונה, אתה רק נתת לו את סוג הקישור אבל לא את מקום מסד הנתונים ולכן הוא לא מצליח לפתוח אותו.

מקוה שזה עזר.