CONTROLE PERMETTANT LA SELECTION A PARTIR D'UNE LISTE PLUS INTERESSANT QUE LE COMBOBOX HABITUEL

Option Explicit
Dim Cnx As ADODB.Connection


Private Sub Command1_Click()
    With [SNAComboBox1]
        .ColumnCount = -1  'Reconnaissance automatique du nombre de colonne
        .RowSourceType = rt_Query
        .TextColumn = 2
        .RowSource = "select * from T_Products"
        .LimitToList = True
    End With
End Sub

Private Sub Command2_Click()
    With [SNAComboBox1]
        .RowSourceType = rt_List
        .ColumnCount = 2
        .RowSource = "-1;True;0;False"
        .TextColumn = 2
        .LimitToList = False
    End With
End Sub

Private Sub Form_Load()
    Set Cnx = New ADODB.Connection
    With Cnx
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA ASIMENGO.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=2CST"
        .Open
    End With
    Set [SNAComboBox1].DefaultConnection = Cnx
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Cnx = Nothing
End Sub