[VB6] Popolare combobox da tabella

[OrcaAssassina]

Utilizzando questi strighe sono riuscito a visualizzare il contenuto di un campo di una tabella.

Set Cn2 = New ADODB.Connection
Cn2.CursorLocation = adUseClient


Cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\Servizi.mdb"


Set rsRecordSet3 = New ADODB.Recordset
rsRecordSet3.Open "SELECT * From Servizi ORDER BY ServGiornata", Cn2, adOpenStatic, adLockOptimistic

Do While rsRecordSet3.EOF = False
Combo1.AddItem rsRecordSet3("ServGiornata")
rsRecordSet3.MoveNext
Loop


In questo modo riesco a visualizzare una sola colonna, io ne dovrei visualizzare 6 di colonne, come devo fare per creare una combo da 6 colonne.

Ci sono delle combo particolare o bisogna ricorrere a quelche stratagemma

Ciao e grazieeeee

[OrcaAssassina]

E se invece di una combo usassi una datagrid????

Quando clicco sulla cella della datagrid principale, a cui voglio applicare tale effetto, faccio apparire la seconda datagrid, in modo da visualizzare più colonne ed impostare l'effetto grafico come se fosse una combo, e quando selezione un record faccio assumere a quella colonna il valore del record selezionato????

Cosa ne pensate????'

E' una cosa fattibile????

Ciao e grazieeeeeeeeee