Open and Close an Access database connection

Open up a Access database connection

Dim objConn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("yourdbfile.mdb") & ";"

objConn.Open

Close an Access database connection

objConn.Close
Set objConn = Nothing