Private Sub Form_Load() Dim obj As AccessObject For Each obj In CurrentData.AllTables Me.yourListBox.AddItem obj.Name Next obj End Sub