' ------------------------------------------------------
'  Access ODBC Jet - DSN Connection
' ------------------------------------------------------ 

Dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn=mydatabase;uid=admin;PWD=xxx"
'...
conn.close
set conn=nothing



 
' ------------------------------------------------------ 
' Access Jet ODBC - DNS-Less Connection
' ------------------------------------------------------ 

Dim conn, dbPath 
dbPath = server.mappath("\mydatabase.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dbPath & ";UID=admin;PWD=xxx;"
'...
conn.close
set conn=nothing

 
 
 
' ------------------------------------------------------  
' Access OLEDB - DSN-Less Connection (Recommended)
' ------------------------------------------------------ 

Dim conn, dbPath 
dbPath = server.mappath("\mydatabase.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath & ";USER ID=admin;PASSWORD=xxx;" 
'...
conn.close
set conn=nothing


 
 
' ----------------------
' Documentation provided by E Business Services Ltd in association with Microsoft
' Contact: support@eBizs.net