Hello
voici un petit bout de code qui te rappellera peut etre des souvenirs:
'debut
Dim MaBD As Database
Dim srce As Recordset
Dim MaRequete As String
Dim somme as Integer
Set MaBD = DBEngine.Workspaces(0).Databases(0)
MaRequete="Select * from TableX;"
Set srce = MaBD.OpenRecordset(MaRequete, DB_OPEN_SNAPSHOT)
Do while not srce.EOF
somme= somme + srce.NOMDUCHAMP
Loop
'fin
bon c'est du n'importe quoi, mais le principe est là.. j'espère que ca pourra t'aider
++