Список List0
Вариант 1:
=======================
Private Sub Form_Open(Cancel As Integer)
Dim td As DAO.TableDef, strList As String
Me!List0.RowSourceType = "Value List"
strList = ""
For Each td In CurrentDb.TableDefs
If Left(td.Name, 1) = "_" Then
strList = IIf(strList > "", strList & ";" & td.Name, td.Name)
End If
Next
Me!List0.RowSource = strList
Set td = Nothing
End Sub
=======================
Вариант 2:
=======================
Private Sub Form_Open(Cancel As Integer)
Me!List0.RowSourceType = "ListTables"
End Sub

Function ListTables(fld As Control, id As Variant, row As Variant, col As Variant, code As Variant) As Variant
Dim ReturnVal As Variant, ctr As Container, doc As Document
Dim td As DAO.TableDef
Static NameObject(127) As String, Entries As Integer
ReturnVal = Null
Select Case code
Case acLBInitialize
Entries = 0
For Each td In CurrentDb.TableDefs
If Left(td.Name, 1) = "_" Then
NameObject(Entries) = td.Name
Entries = Entries + 1
End If
Next
ReturnVal = Entries
Case acLBOpen
ReturnVal = Timer
Case acLBGetRowCount
ReturnVal = Entries
Case acLBGetColumnCount
ReturnVal = 1
Case acLBGetColumnWidth
ReturnVal = -1
Case acLBGetValue
ReturnVal = NameObject(row)
Case acLBEnd
Erase NameObject
End Select
ListTables = ReturnVal
Set td = Nothing
End Function
=======================
Вариант 3:
=======================
Private Sub Form_Open(Cancel As Integer)
Me!List0.RowSource = "SELECT [Name] FROM MSysObjects WHERE [Type]=1 AND Left([Name],1)='_';"
End Sub

=======================