[VB6] Combobox... problema additem

[Sh4nK]

Salve a tutti, ho un db con una tabella avente diversi "Generi" di giochi, e vorrei listare i vari generi in un combobox, solamente che il combobox mi rimane vuoto e non capisco perché (non da alcun errore, rimane vuoto e basta).

Eccovi il codice:

Private Sub Form_Load()
    Dim bolVuoto As Boolean
    
    bolVuoto = False
    
    strTabella = "SELECT * FROM Generi"
    Call mdl_datab.records(strTabella)
    
    If Not rs.NoMatch Then
        rs.MoveFirst
        Debug.Print "pieno"
    Else
        bolVuoto = True
        Debug.Print "vuoto"
    End If
    
    If bolVuoto = False Then
        Do While rs.EOF
            cmb_Generi.AddItem rs!Genere
            rs.MoveNext
        Loop
    End If
    
End Sub

Grazie per un help.
Saluti.

[RAVALON]

io credo che se non ci fai vedere quello che fa la sub chiamata con CALL non possiamo aiutarti....

fai un debug e segui passo passo e vedi se ti ritorna i giusti valori....cosi troverai il problema...sai come si debugga vero ?

[Sh4nK]

Eccoti la sub richiesta:

Public Sub records(strTabella)
Set rs = db.OpenRecordset(strTabella)
End Sub

C'é anche un altra sub che viene chiamata all'inizio del progetto che é:

Public Sub datab()
Set db = OpenDatabase(App.Path & "\Database\dbmgc04.mdb")
End Sub

Il codice non ha difetti secondo me, o per lo meno non ne ho trovati (nb: sono molto inesperto ed é la prima volta che uso un combobox). Cmq ripeto, l'applicazione non da errori, semplicemente mi ritrovo con il combobox vuoto, e posso assicurare il che il db funziona benissimo e che i riferimenti ad esso sono assolutamente corretti.

Vi ringrazio per l'help.

[Sh4nK]

UP aiuto... plz

[Sh4nK]

UP aiuto plz.

[axsw]

Ciao Prova così

    If bolVuoto = False Then
        Do Until rs.EOF
            cmb_Generi.AddItem rs.Field("Genere")
            rs.MoveNext
        Loop
    End If

Fammi Sapere ciao