connesione a database Access

[nucce]

ho un problema con un'applicazione asp che deve connettersi ad un database acess...premetto dicendo che non sono un esperto...mi sono appena avvicinato al mondo dei siti dinamici...cmq al db mi connetto nel seguente modo:

//Istanzia l'oggetto connection per la connesione al DBMS
var ADOConn = new ActiveXObject("ADODB.Conection");
//Creo la stringa di connessione
var strConn = "";
strConn += "driver = {Microsoft Access Driver (*.mdb)};";
strConn += "dbq = "+ Server.MapPath("agenda.mdb");
//Apro la connessione al DB selezionato
ADOConn.Open(strConn);
//Interrogo il DB
var query = "SELECT * FROM Persona";
var risultato = ADOCOnn.Execute(query);
//Stampo i risultatati della query
while(!risultato.EOF){
Response.Write("Cognome: " + risultato("Cognome") + "
");
Response.Write("Nome: " + risultato("Nome") + "
");
Response.Write("Data di Nascita: " + risultato("Data Nascita") + "

");
}
//Chiudo la connessione
ADOConn.Close();

mi da errore alla riga var ADOConn = new ActiveXObject("ADODB.Conection"); ...da cosa può dipendere???...grazie!!!

[maximum]

Che tipo di errore ti restituisce?

[salvodibella]

Direttamente dal sito di dalubar.it
Aprire, Chiudere, Interrogare/Modificare e Visualizzare un Database in 4 mosse (metodo DNS-less)

<%
'Apertura

    Dim conn, rs, PathAppl
    PathAppl = Request.ServerVariables("APPL_PHYSICAL_PATH")
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
           "DBQ=" & PathAppl & "nomefile" & ";" & "PWD=" & ReadPwd
  

'Chiusura

    conn.Close
    Set conn = Nothing
  

'Interrogazione/Modifica

     [Set rs = Nothing]
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.Open "QuerySQL", conn, 1, 3
     
     
     conn.Execute "Comando SQL"
  

'Prelevare i dati

    Do Until rs.EOF
      Response.Write rs("Nomecampo")
      .....................................
      rs.MoveNext
    Loop
     
    '(oppure)
     
    Do Until rs.EOF
      For Each campo In rs.Fields
        Response.Write campo.name & " = " & campo.value
      Next
      rs.MoveNext
    Loop

[nucce]

grazie proverò