Visual Basic - dbgrid2

Pasar los datos de un dbgrid a un text, lo hago asi:

'al dar un click al DBGRID
text1=dbgrid.columns(1).value

Pero quiero que pase todos los registros uno por uno para despues guardar ese datos del text1 en una tabla.

así lo estoy haciendo pero no me funciona, nada mas me pone el primer registro, lo estoy haciendo en un BOTON

rst.movefirst
do while not rst.eof
text1.= dbgrid.columns(1).value
rst.movenext
loop

Gracias por su ayuda

En vez de utilizar la columna del dbgrid, utiliza el Field del recordset así:
rst.movefirst
do while not rst.eof
text1.= rst.fields(1)
rst.movenext
loop