Récuperer des résultats d'un select en VB ??

Bonjour,

J'aurais vraiment besoin de votre aide.
C'est mon 1er prog en Vb sur visual basic 2008 donc je connais pas trop
en faite j'ai une requete select ( connecté avec une base de données access 2000 )
et je voudrais afficher les resultats de ma requete dans une listbox


dans ma base de données j'ai un champ IDmachine qui s'autoincremente , NomMachine , AdresseIP , Secteur


Voila mon code :


Private Sub B_Afficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Afficher.Click

Dim ListeMachines As New ListBox
Dim Machines As OleDbDataReader = Nothing
Dim MyConnection As New System.Data.OleDb.OleDbConnection()
Dim Afficher As OleDb.OleDbCommand = MyConnection.CreateCommand()

Try

MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=....\BaseDeDonnées.mdb"
MyConnection.Open()
Afficher.CommandText = "Select NomMachine from Machines"
MsgBox(Afficher.CommandText)
Afficher.ExecuteNonQuery()


Catch ex As Exception
MessageBox.Show("Impossible d'établir la connexion à la base !!" & ex.Message)
End Try

MyConnection.Close()








Merci d'avance pour votre aide.