DNSles eller lign.

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Set Rs = Server.CreateObject(\"ADODB.recordset\")

    \' Åbner forbindelse til databasen
    strSQL = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" &
Server.MapPath(\"DIN_DATABASE.MDB\")
    Conn.Open strSQL

    \' Din SQL streng
    strSQL = \"SELECT * FROM en_tabel WHERE noget=\'andet\';\"
    \' Hvis du laver et af flg. SQL kald så skal du bare skrive Conn.Execute
strSQL da de ikke
    \' returnere et recordset: INSERT INTO, DELETE FROM, ALTER TABLE, DROP
TABLE, CREATE TABLE,
    \' UPDATE.

    \' Udfør \"kaldet\" og returner et recordset
    Set Rs = ConnectDB.Execute(strSQL)

    \' Nu kan du trække data ud hvis Rs.BOF = false.
    If Not Rs.BOF Then
        strMitFelt = Rs(\"ET_FELT\")
    End IF

    \' Ryd op!
    Set Rs = Nothing
    Conn.Close: Set Conn = Nothing
%>

Det er sådan lidt generalt ..

DBPATH=\"DBQ=e:\\home\\doamin.dk\\db\\database.mdb;defaultdir=e:\\home\\domain.dk\\db;Driver={Microsoft Access Driver (*.mdb)}\"

Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open DBPATH

Det eneste du skal gøre er at rette DBPATH når du bruger en anden database.