Prob affichage resultat requete

Bonjour,

Je souhaiterai afficher dans une listbox le résultat d'une requête.
Ma connexion à la base fonctionne mais c'est l'affichage où je pêche

Voici mon code :

Code:

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
 Private Sub affiche_utilisateur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnx As OleDb.OleDbConnection
        Dim cmd As OleDb.OleDbCommand
        Dim dta As OleDb.OleDbDataAdapter
        Dim dts As New DataSet
        Dim dtt As DataTable
        Dim conn As String
        Dim requete As String
        Dim nombre As Integer
 
        'ouverture de la connection à partir du répertoire de l'application
        conn = "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\connection.mdb"
        cnx = New OleDb.OleDbConnection
        cnx.ConnectionString = conn
        cnx.Open()
        requete = "select * from utilisateur "
 
        cmd = New OleDb.OleDbCommand(requete)
        dta = New OleDb.OleDbDataAdapter(cmd)
        cmd.Connection() = cnx
 
        'chargement du DataSet à partir du DataAdapter
        dta.Fill(dts, "utilisateur")
 
        'chargement de la DataTable à partir du Dataset
        dtt = dts.Tables("utilisateur")
 
        nombre = 0
        While nombre <= dtt.Rows.Count
 
            Listeutilisateur.Items.Add('Resultat requete que je veuxaffiché)
 
            nombre = nombre + 1
 
        End While
 
 
 
        cnx.Close()
 
 
    End Sub

Pouvez vous m'aider ?

Merci