¿ seleccionar en dbgrid algunas filas y conseguir registros usando getrows?

[ALFREDVB]

(TEMA SOLUCIONADO EN RESPUESTA 6 SEPT 2009)LO QUE ESTOY INTENTANDO ES POR MEDIO DE UN DBGRID SELECCIONAR SIMULTANEAMENTE ALGUNOS REGISTROS Y PASAR ESTOS REGISTROS A UNA NUEVA TABLA EMPLEANDO GETROWS, EL ULTIMO PROCEDIMIENTO ENSAYADO FUE EL SIGUIENTE PERO AL PROCESAR EL SEGUNDO ELEMENTO VALUE ME INDICA QUE EL SUBINDICE ESTA FUERA DEL INTERVALO. CREO QUE YA NO SE NI COMO PROCESA LOS MARCADORES :
GRACIAS POR LAS OPINIONES:
Private Sub Command7_Click()

Do While DBGrid1.SelBookmarks.Count <> 0
For I = 0 To DBGrid1.SelBookmarks.Count
Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(I)
'Tu proceso
avardata = Data1.Recordset.GetRows(1)
Row = I
Data1.Database.Execute " INSERT INTO ESTATABLA " _
& "(Nombre,Apellidos) VALUES " _
& "('" & avardata(0, I) & "', '" & avardata(1, I) & "');"
Next
Loop
Data1.Refresh
End Sub