Visual Basic - DataGrid

Estimados amigos:

tengo un datagrid de nombre datagrid1 conectado mediante Adodc, en el datagrid1 tengo 5 campos entre uno de ellos tengo un campo llamado NOMBRES.

mi pregunta es la siguente:

¿como puedo recorrer el datagrid y pasar un nombre a un listbox?

de antemano muchas gracias, slu2 a todos.

A ver si te sirve esto. Te dejo el código para recorrer todos los registros del
campo NOMBRES.

'** Lo primero es refrescar el Grid...
datagrid1.refresh

' ****Declaramos las variables... ****
Dim NumRegistros, z As Integer
Dim Fin As Boolean
Dim Nom As String

' ******* Guardamos el total de registros en NumRegistros... ************
NumRegistros = Adodc.Recordset.RecordCount

' ******* Sólo tiene sentido hacer la búsqueda si hay 1 registro ó más... *****
If (NumRegistros > 0) Then

Adodc.Recordset.MoveFirst
z = 1
Fin = False

Do While Not (Fin) '*** Aquí empieza el bucle fundamental para recorrerlos

'******** Aquí recogemos el Nombre ****************
Nom = Adodc.Recordset.Fields("NOMBRES")


If Nom = "Pepe" Then '**Entre comillas pones el nombre que estés buscando **
listbox1.additem Nom '***** Aquí metemos el nombre en la listbox ****
Exit Sub
End If
'**Si no buscas ningún nombre en concreto, quita el IF y el EXIT SUB y el END IF

'**** Aquí comprobamos si hemos recorrido todos los registros... *****
z = z + 1
If (z <= NumRegistros) Then
Adodc.Recordset.MoveNext
Else
Fin = True
End If

Loop

End If