Ciao ragazzi,
qui sotto vi espongo un pezzo di codice che utilizzo per riempire una MsFlexGrid di record pescati da un DataBase.mdb tramite una combobox chiamata CERCA:

Dim qry_Risposte As String, I As Integer
Dim rsQuiz As Recordset
Dim miodb As Database
Dim FORNITORE As String
Dim FORNITORE1 As String
Dim FORNITORE2 As String

qry_Risposte = "SELECT CODICE,INDICE,CATEGORIA FROM TIP_MERCE WHERE TIPOLOGIA LIKE '" & (NomFornitore) & "'ORDER BY CODICE"
Set miodb = OpenDatabase("C:\VENDITA\DB\DB_LO.mdb")
Set rsQuiz = miodb.OpenRecordset(qry_Risposte, dbOpenDynaset)

If rsQuiz.EOF = False Then
rsQuiz.MoveLast
rsQuiz.MoveFirst
mi_TotaleArticoli = rsQuiz.RecordCount - 1

ReDim tRiga(mi_TotaleArticoli)


If mi_TotaleArticoli < mi_NroRighe Then

Else
m_fNoScroll = True

End If

For I = 0 To mi_TotaleArticoli

If IsNull(rsQuiz.Fields("CODICE").Value) = False Then
tRiga(I).FORNITORE = Trim(rsQuiz.Fields("CODICE").Value)
Else
tRiga(I).FORNITORE = vbNullString
End If

If IsNull(rsQuiz.Fields("INDICE").Value) = False Then
tRiga(I).Descrizione = Trim(rsQuiz.Fields("INDICE").Value)
Else
tRiga(I).Descrizione = vbNullString
End If

If IsNull(rsQuiz.Fields("CATEGORIA").Value) = False Then
tRiga(I).FORNITORE1 = Trim(rsQuiz.Fields("CATEGORIA").Value)
Else
tRiga(I).FORNITORE1 = vbNullString
End If


If I < 18 Then
VENDITA.FLEX.AddItem tRiga(I).FORNITORE & vbTab & tRiga(I).Descrizione _
& vbTab & tRiga(I).FORNITORE1
End If

rsQuiz.MoveNext

Next


End If
DB.Close


...e fin qui tutto ok, ma se io volessi selezionare piu' tipologie in una combobox, rendendo chiaramente la combo multiselettiva?
Spero di essermi spiegato bene!
vr-claudio