Visual Basic - Imagen en FlexGrid

Tengo una imagen que quiero que poner en un flexgrid, con este código me lo pone pero solo en la primera fila y necesito que aparezca en todas las filas del grid que devuelve el rsrecordset. Muchas Gracias por adelantado.
dim filas as integer
filas = 2
With msFlexGrid1
Do While Not rsRecordSet.EOF
.Rows = filas
Set .CellPicture = Image1.Picture
.TextMatrix(filas - 1, 1) = rsRecordSet.Fields(0)
rsRecordSet.MoveNext
filas = filas + 1
Loop
End With

Mi amigo, saludos, el problema lo tienes en la variable fila que estas declarando

Intenta con estoy estoy seguro te funcionara

With msFlexGrid1
Do While Not rsRecordSet.EOF
.Rows = .Rows+1
Set .CellPicture = Image1.Picture
.TextMatrix(.rows - 1, 1) = rsRecordSet.Fields(0)
rsRecordSet.MoveNext
Loop
End With