<% 'أوامر فتح قاعدة البيانات Dim ConnectionString Dim ADO ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("mydb/mydb.mdb") Set ADO=Server.CreateObject("ADODB.Connection") ADO.ConnectionString =ConnectionString ADO.Open %>