🚀 go-pugleaf

ciao a tutti.
ho un problema con un maledetto rs che non viene aggiornato subito.
premetto che sto aggiungendo dei dati in una lista e cio' che avviene �.....
....aggiungo il primo record,la lista rimane vuota....
....aggiungo il secondo record,compaiono tutte e due! :-(
Vi allego il codice che utilizzo,ma faccio una postilla:ho utilizzato la
stessa sub con Msde (ed Ado) e Sql Server (ed Ado) e per magio....funziona!
Ora uso Ado e Access 2000.


Public Sub Aggiorna_Mod()
    Dim rsMod As ADODB.Recordset
    Dim sSql As String, sCod As String, sDescriMod As String

    sCod = dcCli.Recordset![CodCliente]
    sSql = "select * from ModuliCli where [CodCliente]='" & sCod & "' order
by CodCliente"
    Set rsMod = New ADODB.Recordset
    rsMod.Open sSql, MyDb, adOpenKeyset, adLockOptimistic    <---ho dei
dubbi qui...a qs. punto!

    LstModuli.Clear

    With rsMod
        If Not (.EOF And .BOF) Then
            .MoveFirst
            While Not .EOF
                ' recupero la descrizione
                dcModuli.Recordset.Find "[CodModulo]='" & ![CodModulo] &
"'", , , 1
                If Not .EOF Then sDescriMod =
dcModuli.Recordset![DescriModulo] Else sDescriMod = ""
                LstModuli.AddItem sDescriMod
                LstModuli.ItemData(LstModuli.NewIndex) = ![IdModulo]
                .MoveNext
            Wend
        End If
    End With

    Set rsMod = Nothing

End Sub

provando a far visualizzare il recordcount...cose spettacolari...prima a
0,poi direttamente a 2!
Mi sapete aiutare?
Grazie
Beba