remplir une listebox avec mais une table acces 2003

bonjour a tous

je suis en cour de dépression nerveuse avec un problème de listbox et de table acces 2003
étant plus que débutant . j ais effectuée des recherches sur le site mais aucun code ne règle mon problème.
voila ce que j ai coder
 
Private Sub File1_Click()
Dim y As Integer
Dim j As Integer
y = list1.ListIndex
Data1.Recordset.MoveFirst
Do While (j <> y)
Data1.Recordset.MoveNext
j = j + 1
Loop

End Sub

Private Sub Command1_Click()
Dim x As Integer
Dim i As Integer




Set fichier = GetObject("c:\test\secu.mdb")

i = 0



Do While (i <> x)
list1.AddItem (Data1.Recordset.Fields("t-client").Value)
Data1.Recordset.MoveNext
i = i + 1
Loop
End Sub

Private Sub Form_Load()
Dim secu As String
NomTable = "t - client"
End Sub

Private Sub liste1_Click()
Dim y As Integer
Dim j As Integer
y = list1.ListIndex
Data1.Recordset.MoveFirst
Do While (j <> y)
Data1.Recordset.MoveNext
j = j + 1
Loop
End Sub

donc le résultat est que acces s ouvre bien mais aucun élément se glisse dans ma listbox alors si une âme charitable veux bien me corriger et me mètre des baffes ca me  rendrer moi bête

encore merci a tous 

pour ajouter un évenement dans une listbox, il faut faut faire ListBox1.Items.Add(la_donnee_a_ajouter) où ListBox1 est le nom de ta ListBox...