مشكلة مستعجلة

[حضرمية اصيلة]

<%
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("C:\Inetpub\wwwroot\news\project2.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>


هذا هو الكود المشكلة عدم الوصول لقاعدة البيانات ارجوكم ساعدوني