полю со списком присвоищь
текстовую строку (значения)
Dim aob As AccessObject, d As String
For Each aob In CurrentProject.AllForms
d = d & ";" & aob.Name
Next
Поле.RowSource = Mid(d, 2)

однако не очень хорошо
потому как длина строки
ограничена, а форм может
быть очень много.
тогда лучше использовать
recordset

Dim aob As AccessObject, d As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'открываем несвязанный набор записей
With rst
.Fields.Append "Name1", adVarChar, 200
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
For Each aob In CurrentProject.AllForms
'не добавлять в список название текущей формы
If Not (aob.Name = Me.Name) Then
.AddNew
![Name1] = aob.Name
!DateModified = aob.DateModified
.Update
End If
Next
'задаем сортировку в наборе записей
.Sort = "Name1"
Set ПолеСоСписком.Recordset = rst
.Close
End With

строку
!DateModified = aob.DateModified
выкинь