<%  
Dim ConnectionString
 Dim ADO
 ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\database\admin.mdb")
Set ADO=Server.CreateObject("ADODB.Connection") 
ADO.ConnectionString =ConnectionString 
ADO.Open 
%>