Listbox à l'aide

Bonjour à tous, excuser vraiment mais j'ai un problème avec mon projet.
Je voudrais charger des noms via ma base de données dans une listbox et je ne sais pas quelle syntaxe utiliser.

Dim sql as string = "SELECT Raisonsociale FROM Fournisseur"

lisrbox1.item.add(sql)

En fait, je veux charger les noms de tous les fournisseurs dans la listbox sur chaque ligne.
Vraiment j'attends votre reponse.
Merci
The Matrix has you ... has us... We're in

Voici le code que j'ai mis dans le chargement de ma feuille:
        Cnx = New OleDbConnection
        Cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=C:\Documents and Settings\Administrateur\Mes documents\pharm.mdb"
        Cnx.Open()

        'creation de la requête SQL
        Dim Sql As String = "SELECT * FROM Fournisseur"
        Dim Sql2 As String = "SELECT RaisonSociale FROM Fournisseur"

        'Création de la commande et on l'instancie (sql)
        Cmd = New OleDbCommand(Sql)
        Cmd2 = New OleDbCommand(Sql2)

        'Création du dataadapter (dta) et on l'instancie (cmd)
        Dta = New OleDbDataAdapter(Cmd)
        dta2 = New OleDbDataAdapter(Cmd2)

        'On instancie la commande (cmd) à la connection (cnx)
        Cmd.Connection() = Cnx
        Cmd2.Connection() = Cnx

        'On charge le dataset (dts) grâce à la propriété fill du dataadapter (dta)
        Dta.Fill(Dts, "Fournisseur")

        'On charge la datatable (dtt) grâce à la propriété tables du dataset (dts)                 
        Dtt = Dts.Tables("Fournisseur")

        For i = 0 To (Dtt.Rows.Count - 1)
            RowNum = i
            ListBox1.Items.Add(SQL)
        Next