Se arriva doppio ignoralo.(avevo già scritto una mail ma si è persa
nell'oblio dei bytes. Te ne mando un riassunto.)

Pericoloso forse non è la parola più adatta.
Quando si scrive codice bisognerebbe rifarsi ad uno dei paradigmi
della programmazione ad oggetti cioè
"l'astrazione".
Cioè scrivere cidice che debba essere più possibile riciclabile.


Ti scrivo il codice che utilizzerei per caricare una combo o una lista.
Public Sub CaricaLista(Db As ADODB.Connection, _
Sql As String, Lista As Object)
Dim Rst As New ADODB.Recordset
Dim I As Integer

Rst.Open Sql, Db
Do While Not Rst.EOF
Lista.AddItem Rst(campo con nominativo).Value
Lista.ItemData(Lista.NewIndex) = Rst(campo con id).Value
Rst.MoveNext
Loop
Rst.Close
End Sub

Creano un modulo el quale inserisci il codice di caricamento combo
poi puoi richiamarlo sempre e puoi asportarlo e utilizzarlo in tutti i tuoi progetti.
es se l'istanza del modulo la chiami pippo
scrivrai:
pippo.caricalista connessione,sql,nome combo (o lista)


Va be...scusa se ti ho rott un po ma sono un 'vecchio' pignolo.

Ciao.

p.sp. Per ogni delucidazione.......