خطا در اتصال به بانک اطلاعاتی اکسس در vb.net

سلام
من کاربر مبتدی در زمینه vb.net هستم و مشکل در اتصال به بانک دارم. لطفا من را راهنمایی کنید.
با تشکر

کد:

---


Imports System.Data.OleDb
PartialClass _Default
Inherits System.Web.UI.Page
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Dim strcon AsString
Dim strsql AsString
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As Data.DataSet = New Data.DataSet()
Dim cb As OleDbCommandBuilder
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=d:\data.mdb"
con = New OleDbConnection(strcon)
strsql = "select * from Register"
con.Open()
con.Close()
ds.Clear()
da.Fill(ds, "Register")

---

سلام
در قدم اول فایل بانک اطلاعاتی data.mdb را به پوشه App_Data کپی کنید.

سپس از این کد استفاده کنید:

کد:

---

Const STRCON As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DATADIRECTORY|\data.mdb;"
Const STRSQL As String = "SELECT * FROM [Register];"

Using dbDA As New System.Data.OleDb.OleDbDataAdapter(STRSQL, STRCON)
    ds.Clear()
    dbDA.Fill(ds, "Register")
End Using

---

البته اصولاً در اکثر مواقع استفاده از DataSet و DataAdapter در سایت میتواند باعث افت سرعت و بازدهی شود.
موفق باشید.