Ciao Prova così
codice:
    If bolVuoto = False Then
        Do Until rs.EOF
            cmb_Generi.AddItem rs.Field("Genere")
            rs.MoveNext
        Loop
    End If
Fammi Sapere ciao