Carga reutilizable msflexgrid

[leva]

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

[pkj]

No sé si será un error o si tendrás otros errores, pero para acceder a la "grilla" no necesitas poner el form.

Sub cargar_grilla(grilla As MSFlexGrid, rx As ADODB.Recordset)
With grilla
...
...
...

se supone que la grilla se la marcas en la llamada:

cargar_grilla Grilla1, rset1
si estas en el form de la grilla.

si estas en otro form:

cargar_grilla Form1.Grilla1, form1.rset1

o algo asi

PD: estoy casi seguro de que eso te está generando como mínimo algún fallo, ya que funcionará con flexgrid que tengan como nombre "grilla", pero no con otras que tengan diferente nombre.