Visual Basic - Insert into + contador

Tengo dos tablas X e Y. Las cuales utilizo en una consulta 'ConsultaA' relacionadas por los campos Asiento y Apunte. De esta consulta selecciono los registros segun una condicion.
Lo que quiero es insertar en la tabla Y tantos registros como haya seleccionado en la consulta, y en uno de los campos de la tabla Y insertar un contador...
Es decir:
ConsultaA
tablaX.Asto---------------tablaY.Asiento
tablaX.Apte---------------tablaY.Apunte
tablaX.NumDoc

Insertar en tablaY.Observ el NumDoc de la tabla + 1, con un contador

tablaX.Asto tablaX.Apte tablaX.NumDoc tablaY.Observ
1 1 5014 5014
1 2 5014 5015
1 3 5014 5016
2 1 6005 6005
2 2 6005 6006
........

No se si me he explicado bien.....

Gracias.

Lo que buscas es más SQL que otra cosa.

Puedes hacer:

for contador=0 to X
ejecutar instrucción SQL "INSERT INTO " con valores y contador
next contador

Aunque yo intentaría una consulta INSERT INTO que agrege todos los valores.

Recomiendo que busques información sobre SQL. Un saludo.