[Access]Lister les enregistrements ds une Listbox

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fd As ADODB.Field
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
maTable = "Ent"
With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open "C:\Documents and Settings\Data.mdb"
End With
With rsT
    .ActiveConnection = Conn
    .Open maTable, LockType:=adLockOptimistic
End With
    UserForm1.ListBox1.Clear
For Each fd In rsT.Fields
    UserForm1.ListBox1.AddItem (rsT.Fields![Numero])
Next