Cuando llegue esta tarde a mi casa te pasare el codigo que necesitas, ya que yo ya lo he usado en ciertas ocasiones y me funciona, y como bien dije antes no necesitas saber nada del sevidor. Yo lo he cambiado de servidor y me ha seguido funcionando etc.
P.D: Lo puso el de arriba. pero creo que el mio tiene mas cosas.
Edit:
Bueno ya estoy en casa... Aqui tienes el codigo que uso yo en las aplicaciones y te digo que funciona, ya puedes mover la base de datos a otro servidor (como es un fichero mdb) te va a seguir haciendo las cosas exactamente igual.
<%
' Creamos conexión.
Set cn = Server.CreateObject("ADODB.Connection")
' Especificamos Driver y Base de datos (debe estar en el mismo directorio, para modificar el directorio usar rutas relativas como ./ejemplo etc)
openstr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("ejemplo.mdb")
'Abrimos conexión usando el driver.
cn.Open openstr
'Creamos un recordSet y la sentencia SQL
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM centros;"
'Abrimos el recordset pasandole como parametros la sentencia sql, la conexión y otras especificacios, para mas info sobre especificaciones (buscar ADOVBS.INC)
rs.Open sql, cn, 3, 3
'Mientras que el no lleguemos al final del fichero hacemos...
On Error Resume Next
rs.MoveFirst
Do While Not rs.EOF
Response.Write Server.htmlencode(_
rs.Fields("Codigocentro") & ", " &_
rs.Fields("Centro") & " " & _
rs.Fields("Adreca")) & " "
rs.Fields("Localitat") & " " & _
rs.Fields("Cpostal") & " " & _
rs.Fields("telef") & "<br>"
rs.MoveNext
Loop
' Se destruyen los objetos creados
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
A ver si esto te sirve de ayuda..