Bonjour à tous, je souhaite afficher une listbox avec du code VB, mais je suis débutant et je n'ai pas trop compris le principe (malgrès les recherches sur le net)

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Module gmao_aff_main
 
    Sub Main()
        Dim dbconnect As New ADODB.Connection
        Dim dbconnect2 As New ADODB.Connection
        Dim rst As New ADODB.Recordset
        Dim path As String
        Dim SQL As String
        Dim SAGE As String
        Dim strsql As String
        Dim data As String
 
        MsgBox("DEBUT")
 
        path = "\\Srv-bases/gmao/GMAO.accdb"
        SAGE = "DSN=GMAO"
        SQL = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & path & ";"
        dbconnect.Open(SQL)
        If dbconnect Is Nothing Then
            MsgBox("ACCESS NOT OK")
            GoTo lbl_end
        Else
            MsgBox("ACCESS CONNECT OK")
        End If
 
        dbconnect2.Open(SAGE)
        If dbconnect2 Is Nothing Then
            MsgBox("SAGE NOT OK")
            GoTo lbl_end
        Else
            MsgBox("SAGE CONNECT OK")
        End If
 
        rst.Open("SELECT EL_INTITULE FROM F_ENUMLIBRECIAL WHERE EL_INTITULE NOT IN (SELECT NoMachine FROM Table1) AND (N_INFO = 1)", dbconnect)
 
        While Not rst.EOF
            data = rst.Fields("EL_INTITULE").Value
            'remplissage de la listbox avec les différentes valeurs de string
            rst.MoveNext()
        End While
        'affichage de la listbox
        rst.Close()
        dbconnect.Close()
        dbconnect2.Close()
lbl_end:
        MsgBox("FIN")
    End Sub
 
End Module
Ma question est la suivante : comment dois-je faire pour créer, remplir et afficher une listbox svp ?

Merci à ceux qui voudront bien m'aider.