خطأ عند تعريف كائن الاتصال

ايش نوع قاعدة البيانات اللي بتستخدمها ؟؟

أخي نوع البيانات التي أستخدمها هي مايكروسوفت أكسيس

طيب ممكن الكود ..؟

'[ إستخدام احد خصائص كائن الإتصال- لتحديد:نوع المزود - وتحديد مكان مصدر البيانات]

Con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = " & Application.StartupPath & "\AddressBook.mdb"

'[ استخدام احد طرق كائن الاتصال - فتح قاعدة البيانات ]

Con.Open()

StrSQL = "SELECT * FROM tblContacts"

Dap = New OleDb.OleDbDataAdapter(StrSQL, Con)

Dap.Fill(Dst, "Mego") '[تعبئة منظم البيانات]

Con.Close() '[يمكن إغلاق الإتصال بعد تعبئة مجموعة البيانات]

txtID.Text = Dst.Tables("Mego").Rows(0).Item(0)

txtFirstName.Text = Dst.Tables("Mego").Rows(0).Item(1)

txtSurname.Text = Dst.Tables("Mego").Rows(0).Item(2)

MaxRows = Dst.Tables("Mego").Rows.Count

lblCounter.Text = "عدد الإعضاء = " & MaxRows

جرب تضيف الجملة التالية قبل Con.Open()

If Con.State = ConnectionState.Open Then
Con.Close()
End If