Visual Basic - Error carga meflexgrid

Hola gente, tngo un pequeño problemita, tengo un código de carga reutilizable ubicado en el módulo, la idea es que sea reutilizable, osea que usar solamente este codigo para cargar todas las grillas del proyecto . Acá les paso el código para que lo revisen haber si alguien encuentra el error de carga.

Saludos

Oscar
Sub cargar_grilla(f As Form, grilla As MSFlexGrid, rx As ADODB.Recordset)
With f.grilla
.Rows = rx.RecordCount + 1
.Cols = rx.Fields.Count + 1
.Row = 0
For i = 1 To .Cols - 1
.Col = i
.Text = rx.Fields(i - 1).Name
Next i
rx.MoveFirst
For i = 1 To .Rows - 1
For j = 1 To .Cols - 1
.Row = i
.Col = j
.Text = rx.Fields(j - 1).Value
Next j
rx.MoveNext
Next i
End With
End Sub

tio, marca en que linea te sale el error