Aumentando Campo en el Datagrid y Recordset

[plitre_sys19]

Buenas Noches! Necesito Ayuda, estoy programando un formulario que contiene un datagrid conectado con un adodc con bd access pero lo que quiero es q la columna B, el primer campo me tome el valor de la Columna A (como todos los valores de esa columna son iguales) y para los demás campos de la columna B se vayan aumentando en 200, ejemplo:

A B
135,78 135,78
135,78 335,78(135,78+200) y asi sucesivamente en los otros campos
135,78
135,78

Lo he intentado hacer pero creo q esta mal el código, este es q he utilizado:
Dim total As Double
total = 0
Dim vari As Integer
vari = 200
v=!A
With adodc1.Recordset
Do While Not .EOF
total = total + (v+vari)
.MoveNext
Adodc1.Recordset!B = total
Loop
End With

espero que me puedan ayudar, lo he intentado hacer y nada, estoy trancada en esa parte