Visual Basic - No se actualiza flexGrid

Estimados poseo este codigo el caul se encarga de guardar datos en la BD en Access y mostrarlos en un flex, pero el problema es que en la BD se guardan correctamente pero el flex no muestra nada.
Esepro su ayuda.
Private Sub Guardar()

Dim db As Database
Dim rs As Recordset
Dim sql, sNombre, sSerie, sCadena As String
Dim iCant, iSerie, iPos, Num As Integer

iPos = 1
sCadena = " "

Do While iCantSer > 0

sCadena = txtSeries.Text
sSerie = Mid(sCadena, iPos, 1)

Do While sSerie > "0"

Set db = OpenDatabase("C:\GCSFM\Slot.mdb")
sql = "select * from Serie"
Set rs = db.OpenRecordset(sql)

iCant = List2.ListCount
Num = Int((Rnd * (iCant - 1)))

sNombre = List2.List(Num)

rs.AddNew
rs("Serie") = iCantSer
rs("Nombre") = sNombre

rs.Update
rs.Close
db.Close

Call Actualizar

sSerie = sSerie - 1

List2.RemoveItem (Num)
List2.Refresh

Loop

iCantSer = iCantSer - 1
iPos = iPos + 2
Loop

End Sub

Private Sub Actualizar()

Series.Recordset.Requery
ListaSeries.Refresh

End Sub

mira yo trabajo con ado

y para que se actualicen los datagrid o flexgrid

debes refrescar la coneccion

rs.refresh
adodc1.refresh

etc etc
asi cualquier grilla conectada se actualiza

saludos

espero te sirva el ejemplo

A ver Fernando.... no sé si este codigo pueda ayudarte pero te envío algo de lo que yo he usado para ver si te resulta...

Debes hacer un SP que se llame actualizar y otro Configurar para que los llames al cargarse el formulario o cada vez que hagas alguna nodificación de los datos... y al mismo tiempo debes configurar el Flexgrid para que aparezcan los titulos en tu Flexgrid.

Por ejemplo:
Le diste al boton guardar y antes de salir de ese SP colocas
Call Actualizar
Call Configurar

y verás..cualquier cosa me escribes de nuevo a ver si te resulto..

Suerte...


Private Sub ACTUALIZAR()

Dim D0 As String, D1 As String, D2 As String

Me.MSFG.Clear
Me.MSFG.Rows = 1
Me.MSFG.Cols = 3

ChkStr = "SELECT * FROM Tabla"
Set Rst = MyData.OpenRecordset(ChkStr)

If Rst.RecordCount <> 0 Then

Do While Not Rst.EOF
D0 = Rst.Fields("Campo1")
D1 = Rst.Fields("Campo2")

MSFG.AddItem vbTab & D0 & vbTab & D1
Rst.MoveNext
Loop

End If

Rst.Close

End Sub


Este SP te pone los titulos a la Flexgrid y te les asigna el ancho de las columnas en tiempo de ejecución.

Private Sub CONFIGURAR()

MSFG.FormatString = vbTab & vbTab & "^CAMPO1 |<CAMPO 2 "

MSFG.ColWidth(0) = 200
MSFG.ColWidth(2) = 1000
MSFG.ColWidth(3) = 4000

End Sub