Private Sub Form_Load()
    ' Asignar el nombre de la base de datos
    ' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
    sBase = App.Path & "\db2000.mdb"
    
    ' Crear los objetos
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    rst.Open "SELECT * FROM Table1", cnn, adOpenDynamic, adLockOptimistic
    
Pagina Web:
http://guille.costasol.net/bases/ADO/indiceADO.htm

Poner en Google:
Error 3706: ADO no encontró el proveedor