ho avuto il tuo stesso problema...
guarda questa discussione qui
Per connettersi a Access 2000 occorre utilizzare Microsoft JET 4.0 che trovi qui(funziona cmq senza se fai l'upgrade di ado) ,e fare l'upgrade di ado, prova con la versione 2.6 o superiore, ado 2.6 lo trovi qui

Io l aprocedura di connessione la faccio cosi' :
codice:
dim cn As ADODB.Connection
dim rs As New ADODB.Recordset
dim Sub connetti()
' procedura di connessione
       
    StrStringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    StrStringaConn = StrStringaConn & "Data Source="
    StrStringaConn = StrStringaConn & (App.Path & "\tuo_db.mdb")
    StrStringaConn = StrStringaConn & ";Persist Security Info=False"

    Set cn = New ADODB.Connection
        
    Set rs = New ADODB.Recordset

    
        
    cn.ConnectionString = StrStringaConn
     
    cn.Open
      
    
   
End Sub