te voy a dar un ejemplo de como hacer uno bn facil..no lo prove en vb pero para q tengas una idea...
Esto seria usando un DAO 2.5 (controlador) y el dbgrid
Código:
Dim Sumatotal as Single, Numero as Single
Dim DbRecords as Integer
dBRecords = DB.recordset.recordcount
DB.recordset.movefirst
For i = 1 to DbRecords
Numero = DBGrid.Columns(X).Caption 'X = el numero de columna q quieres contar)
DB.recordset.movenext
Sumatotal = Numero + Sumatotal
next i
msgbox Sumatotal
espero q esto te ayude