Visual Basic - Problema con MSHFlexGrid

Que tal, saludos. Mi problema es el siguiente, estoy haciendo un proyecto en vb 6.0 y tengo un formulario en con un MshFlexGrid que carga registros de una base de datos Access 2003 conectado por medio e un objeto Adodc, la idea es que cuando le de click a un registro se me cambie de color y me quede marcado. Esto lo hace sin nungun problema, me marca y hasta me desmarca los registros a los cuales le doy click. Ahora viene lo importante, tengo un boton que al darle click me manda a otro formulario, lo que necesito es que al darle a ese boton me guarde en una tabla de la base de datos el codigo de los registros que estan marcados en el MshFlexGrid (el MshFlexGrid tiene dos columnas, la primera me muestra el nombre del registro y la segunda el código de ese registro), aqui esta el código con el que he tratado pero no me ha funcionado, de verdad que si me pudieran decir en que estoy fallando se los agradeceria muchisimo, esto me esta volviendo loco y es primera vez que trabajo con el objeto MshFlexGrid...

Adodc1.RecordSource = "SELECT * From preindicador"
Adodc1.Refresh
Adodc1.Recordset.AddNew


dim i as Integer

For i = 1 To MSHFlexGrid1.Rows - 1

Row = i

If (MSHFlexGrid1.TextMatrix(i, 0) = (MSHFlexGrid1.CellBackColor = vbYellow)) Then

Adodc1.Recordset.Fields("cod_indicador") = MSHFlexGrid1.TextMatrix(i, 1)

End If

Gracias...

Next i