Para poner datos en un datagrid debes de setear el datasource igual a un recordset cualquiera, por ej.:
set dg1.datasource = rs
bueno, entonces para sacar el monto total solo basta con que recorrás el recordset al que lo seteas cada vez que actualizas tu datagrid de la siguiente forma:
dim i as integer
dim monto as double
monto=0
for i=1 to rs.recordcount
monto=monto+rs("monto")
next i
txtMonto.text=monto
Estoy asumiendo que tu datagrid tiene como nombre "dg1", tu recordset como nombre "rs", tu campo donde pondras el monto "txtMonto" y que el campo de donde rescatas los datos del monto en la base de datos se llama "monto".
Espero que a esto te refiras con tu duda, y si hay algun error en el codigo que te pongo disculpame pero no lo probe en ningun VB porque lo escribi directamente aqui en el formulario.