insert con recorset

[mikimiki]

buenas tengo que hacer un insert en la bd pero llevando el control de cada registro mediante un recorset y no a pelo.

actualmente tengo

conecto basedatos.

set c="INSERT INTO tabla tabla(nom,ape)
SELECT * FROM tabla2 WHERE titulo is not null"

co.Execute sql

co.close

de esta forma mete todos los insert , yo quiero meter de 1 en 1 y llevar un control de lo que meto algo asi como

do while not rs.eof
co.Execute sql
co.movenext
co.update
loop

pero nose como va eso, si me echais un cable