puedes hacer una consulta sql como esta


SELECT SUM(<Campo númerico>)
FROM <Tabla>
WHERE <condicion>

esto lo pones al momento de hacer la consulta a la base de datos, por qjemplo si tienes un commandButton con el que quieres hacer la suma pones


private sub command1_click()

    dim BD as Database ' Declaras las variables de acceso
    dim Tb as Recordset ' a la base de datos

    ' Abres la BD
    set BD = workspaces(0).Opendatabase("path y nombre de la BD")
   ' Abres la tabla con una consulta SQL que te hace la suma del campo que quieres
   set tb = bd.openrecordset("SELECT SUM(Campo) " & _
                                          "FROM Tabla " & _
                                          "WHERE X = Y;")
   'Pones el resultado en el textBox
   text1.text = format(tb.Field(0), "$ ###,###.#0")

   'Cierras la BD
   Tb.close
   BD.close
   
  'Liberas memoris
  set tb = nothing
  set BD = nothing



end sub