'Définition d'une nouvelle connexion Set conn = New Connection With conn 'définition du fournisseur .Provider = "Microsoft.Jet.OLEDB.3.51" 'definition de la base de donnée .ConnectionString = "user id=Admin;" & "data source=chemin\basededtests.mdb" 'ouverture de la connection .Open End With 'definition d'un jeu d'enregistrement Set tabl = New Recordset 'ouverture de la table avec ses parametres tabl.Open "TABLE", conn, adOpenDynamic ' On vérifie que la table contient bien des enregistrements... Si c oui, on peut lire le permier...If tabl.EOF False And tabl.BOF False Then tabl.MoveFirst 'Tu fais tes opération sur la base ici. End If tabl.Close