[VB6] Popolare una ComboBox con funzione

[Gumble]

ciao, ho un casino di combobox da popolare sempre allo stesso modo.

é possibile fare una funzione che prenda come argomenti

-la query (es: "select * from tabella")
-la combobox (es: myCombo1)
-il field da mostrare (es: "campo1")

la funzione poi fa la query, fa il ciclo e riempie la combo. infine restituisce la combobox riempita.

ecco cosa ho fatto:

Public Function fillCombo(q As String, ByVal cmb As ComboBox, field As String) As ComboBox
   Dim rst As ADODB.Recordset
   Set rst = Me.exeQuery(q) 'questa funzione é dentro alla classe che si occupa del db
   If Not rst.EOF Then rst.MoveFirst
    Do While Not rst.EOF
        cmb.AddItem (EOF!cause_fra) 'chiaramente dovrebbe essere il campo. ma presumo che non posso mettere una string. intanto é solo per prova
        rst.MoveNext
    Loop
    fillCombo = cmb 'restituisce la combobox
End Function

ed ecco come intendo richiamarla... ma non va

Dim qTest2 As String
qTest2 = "select * from cause"
Set cmbTest2 = db.fillCombo(qTest2, cmbTest2, "cause_fra") 'db é una mia classe
cmbTest2.Refresh

mi aiutate a farla funzionare? (sempre se si puo)

[power.mobile]

scusa ma a cosa serve il set? basta che richiami la funzione senza bisogno di restituire la combobox ma casomai solo un valore boolean che ti dice se la funzione è andata a buon fine...

[Gumble]

ho risolto passando la combo byRef.. cosi la funzione non restituisce niente.. semplicemente modifica le proprietà della combo.

ecco:

Public Function fillCombo(q As String, ByRef cmb As ComboBox, field As String)
   Dim rst As ADODB.Recordset
   'Dim f As field
   'f.Name = field
   Set rst = Me.exeQuery(q)
   If Not rst.EOF Then rst.MoveFirst
    Do While Not rst.EOF
        cmb.AddItem (rst!cause_fra)
        rst.MoveNext
    Loop
End Function

ora mi resta da risolvere il problema del campo! come posso fare? nelle righe commentate ho provato a creare un field e ad assegnargli il nome passato alla funzione. ma non credo sia la cosa da fare. consigli? io intanto continuo a cercare

[Gumble]

finalmente ho risolto...

Public Function fillCombo(q As String, ByRef cmb As ComboBox, field As String)
   Dim rst As ADODB.Recordset
   Set rst = Me.exeQuery(q)
   If Not rst.EOF Then rst.MoveFirst
    Do While Not rst.EOF
        cmb.AddItem (rst.Fields(field))
        rst.MoveNext
    Loop
End Function