Problema de suma de control de VB DataGrid1

Si no es Adodc1.Recordset.EOF Then '//Lanzar una excepción

Para i = 1 a Adodc1.Recordset.RecordCount Paso 1 '//Recorrido por Recordset

sum=sum+ Adodc1 .Recordset.RecordCount.Fields("name") 'Reemplace el nombre con el campo de precio de su base de datos

Adodc1.Recordset.Move Next '//Cursor hacia abajo. Fields("name") 'Reemplace el nombre con el campo de precio de su base de datos

Adodc1.Recordset.MoveNext '//Cursor hacia abajo

Siguiente i

Finalizar si