, in parole povere:

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/ccs.mdb")
objConn.Open

Così dovrebbe andare