[VB6] ComboBox che ripete

[Ultrareflex_New]

Salve a tutto il NG!

Di solito uso Access ma questa volta il mio cliente mi ha chiesto di utilizzare VB6 perchè molto più stabile (e come puoi dargli torto?)

Ora mi trovo a ricominciare quasi tutto da capo...
Ho creato una combobox che prende i dati da una tabella che contiene i valori ed aliquote Iva. Al momento l'SQL ne contiene 2 (quindi solo due righe!)
Quando creo la combobox funziona tutto... però quando mi sposto con i pulsanti next e previous quando apro la combo mi trovo i valori moltiplicati... e mi domando come accidenti fa? Dove prende quei dati??
Poi vorrei poter come su access mostrare più campi nella combo e digli quale è quella dove prendere il valore... è così difficile far tutto ciò??
Ah già uso DataEnvironment come collegamento ai dati tramite sql.

posto il codice e ringrazio chiunque voglia intervenire... grazie mille!

Private Sub Combo1_GotFocus()
Dim rs As New ADODB.Recordset
rs.Open "tblCodificaIva", "Provider=SQLOLEDB.1;Data Source=XX-5zzzzzz46FC2;" _
& "Initial Catalog=xxxxxxxxxxxxxxxx;User ID=xx;Password=xxxx;Connection TImeout=10"
rs.MoveFirst
Do Until rs.EOF
Combo1.AddItem rs("IDCodificaIva")
rs.MoveNext
Loop
End Sub

Ultra

[Brainjar]

Visto che carichi la combo tutte le volte che esegui la
Combo1_GotFocus() (ma è necessario ?!), inserisci questa istruzione:

Private Sub Combo1_GotFocus()
Dim rs As New ADODB.Recordset
rs.Open "tblCodificaIva", "Provider=SQLOLEDB.1;Data Source=XX-5zzzzzz46FC2;" _
& "Initial Catalog=xxxxxxxxxxxxxxxx;User ID=xx;Password=xxxx;Connection TImeout=10"
rs.MoveFirst
' Istruzione da inserire
' ----------------------
    Combo1.Clear
' ----------------------
Do Until rs.EOF
Combo1.AddItem rs("IDCodificaIva")
rs.MoveNext
Loop
End Sub

Per le combo a più colonne utilizza i controlli Form 2.0 (in ufficio
non ho VB60 per cui non posso provare).
Fai una ricerca sul forum perchè l'argomento è già stato trattato.

[Ultrareflex_New]

Grazie provo subito!!

Sei stato gentile