اخطار در ارتباط با اکسس

[pedram_ns]

با سلام به دوستان
من بوسیله کد های زیر می خوام به دیتابیس اکسس وصل بشم ولی در خط open ارور می ده و نمی تونه اکسس رو باز کنه لطفا مشکل کد هام رو بهم بگین
با تشکر

<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.OleDb" %>
<script runat="server">
Dim ds As New DataSet()
Dim strsql As String
Dim strcon As String
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newrow As DataRow
Dim cb As OleDbCommandBuilder

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
strcon = "provider=microsoft.jet.OLEDB.4.0;" & "DataSource =/app_data/database.mdb"
strsql = "select * from contact"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "contact")
End Sub

[pedram_ns]

لطفا یه نفر کمک کنه.

[احمد سامعی]

strcon = "provider=microsoft.jet.OLEDB.4.0;" & "DataSource =/app_data/database.mdb"


من فكر مي كنم مشكل از كانكشن استرينگ شما هست.
شما بايد هميشه كانكشن استرينگ براي حفظ امنيت در فايل Web.Config بنويسي و از اون بخوني.
فايل Web.Config:

<configuration>
<connectionStrings>
<clear/>
<add name="MyConnection" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\database.mdb" providerName="MyProvider"/>
</connectionStrings>
<configuration/>اين هم كد خواندن ( من نمونه C#‎ مي ذارم VB بلد نيستم اما سرچ بزن پيدا مي كني):

OleDbConnection Connection = new OleDbConnection(ConfigurationManager.ConnectionStr ings["MyConnection"].ConnectionString);