Visual Basic - Suma en DbGrid (formulario de factura)

Estoy haciendo un formulario de factura y necesito hacer un total de la factura abajo del dbgrid, hice el siguiente codigo pero al totalizar se observa que recorre el dbgrid.

Dim rs1 As ADODB.Recordset
Dim x As Variant
x = 0
Set rs1 = adodc2.Recordset

rs1.MoveFirst
While Not rs1.EOF
x = x + rs1.Fields("TOTAL")
rs1.MoveNext
Wend
Text2 = x

GRACIAS POR CUALQUIER AYUDA