COMBO MULTICOLONNES, LA PARFAITE SOLUCE

******************** code a mettre dans le form ************************
'declaration des variables

Dim RsMatiere As Recordset
Dim RsClients As Recordset
Public VClt As String


Private Sub Form_Load()

Set RsMatiere = New Recordset
Set RsClients = New Recordset

RsMatiere.Open "Select Filato,Cliente from Filato Group By Cliente,Filato", db_Cmde, adOpenStatic, adLockOptimistic

RsClients.Open "Select [Code Client] from Clients ORDER BY [Code Client] ", db_Cmde, adOpenStatic, adLockOptimistic


While RsClients.EOF = False

  Combo1.AddItem RsClients.Fields(0), 0
  
  RsClients.MoveNext
  
Wend

End Sub

Private Sub ComboMatiere_GotFocus()

Dim i As Integer
Dim VClt As String

ComboMatiere.Clear
ComboMatiere.ListRows = 10

VClt = Me.Combo1.Text

If RsMatiere.State <> adStateClosed Then RsMatiere.Close

RsMatiere.Source = "SELECT Filato,Colore,Partita, Cliente From Filato where Filato.Cliente = '" & VClt & "' Group By Cliente,Filato,Colore,Partita"
RsMatiere.Open

ComboMatiere.ColumnCount = 3
ComboMatiere.ColumnWidths = 200
i = 0

While RsMatiere.EOF = False

  ComboMatiere.AddItem RsMatiere.Fields(0)
  
    ComboMatiere.Column(1, i) = RsMatiere.Fields(1)
    ComboMatiere.Column(2, i) = RsMatiere.Fields(2)

  
   i = i + 1
   
    RsMatiere.MoveNext
  
Wend

End Sub

*******************************************************************

***************code a mettre dans le module de connexion****************

'-------------------------------------------------------------------------------------------------------------------------
'déclarations du types de connection à utiliser.
'-------------------------------------------------------------------------------------------------------------------------

Public db_Cmde As New ADODB.Connection

'-------------------------------------------------------------------------------------------------------------------------
'déclarations des recordsets.
'-------------------------------------------------------------------------------------------------------------------------

Global rs As Recordset

Public Sub Main()

  
  Set db_Cmde = New Connection
  
  
'*************************************************'
'* Chaîne de Connexion à la Base De                                 *'
'*************************************************'

  db_Cmde.CursorLocation = adUseClient
  db_Cmde.Mode = adModeReadWrite

    db_Cmde.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Combo_multicolonnes\fil.mdb ;"
  

Form1.Show


End Sub