¿ 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

[ema21del9]

Ese error es comun cuando estas leyendo mas registros de los que realmente existen, en que linea te lo marca?

[ALFREDVB]

SOLUCIONADO, EL CODIGO CON EL CUAL FUNCIONA Y MUCHO MAS SENCILLO ES EL SIGUIENTE:

Private Sub Command7_Click()

'ASI DE SENCILLO, PERO QUE UTIL
For i = 0 To DBGrid1.SelBookmarks.Count - 1
Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(i) 'AQUI ACTUALIZA EL RECORDSET SELECCIONADO (i)

AVARDATA = Data1.Recordset.GetRows(1) 'AQUI SE PASA EL REGISTRO SELECCIONADO AL ARRAY

Ii = DBGrid1.GetBookmark(1) 'SIMPLEMENTE PARA VER VARIACION EN MARCADORES
Data1.Database.Execute " INSERT INTO ESTATABLA " _
& "(Nombre,Apellidos) VALUES " _
& "('" & AVARDATA(0, 0) & "', '" & AVARDATA(1, 0) & "');"

Next

End Sub
LO CONSIDERO MUY UTIL, POR SU SENCILLEZ, TARDA A VECES UNO PARA ENTENDER
ALGUNOS CONCEPTOS POR LA FALTA DE EJEMPLOS. .. PERO YA ESTUVO....BY