ComboBox MultiColumn pas peuplant de requête SQL

Question

Good Day,

J'espère que certains peuvent me aider à comprendre pourquoi ma boîte combo ne peuplait correctement, Cette basiquement prend trois colonnes à partir d'une requête SQL et les ajoute à un combobox multi colonnes, le problème est lors de l'exécution, la zone de liste déroulante est vide.

J'ai vérifié le contenu du tableau combinedlist (qui est mal nommé :)) au cours de la boucle avec msgbox et le tableau a le contenu correct, il n'a tout simplement pas dans la boîte

Dim recordset As String 
    Dim RecordPostition As String 
    Dim combinedlist(2) As String 
    cnn.Open "Provider=private;" 

     rst.Open "private", _ 
cnn, adOpenStatic 
recordset = rst.RecordCount 



      rst.MoveFirst 

    Do Until rst.EOF 
     combinedlist(0) = rst.Fields(0) 
     combinedlist(1) = rst.Fields(1) 
     combinedlist(2) = rst.Fields(2) 
     RecordPostition = rst.AbsolutePosition 

      With InsertWOString.ComboBox1 
       .AddItem 
        .Column(0, RecordPostition) = (combinedlist(0)) 
        .Column(1, RecordPostition) = (combinedlist(1)) 
        .Column(2, RecordPostition) = (combinedlist(2)) 

      End With 
     rst.MoveNext 

    Loop 

    rst.Close 
    cnn.Close 

Answer 1

non testé:

'... 
Do Until rst.EOF 
    With InsertWOString.ComboBox1 
      .AddItem rst.Fields(0).Value 
      .List(.ListCount - 1, 1) = rst.Fields(1).Value 
      .List(.ListCount - 1, 2) = rst.Fields(2).Value    
    End With 
    rst.MoveNext 
Loop 
'...