Listing B
Form_Load event for Access 97
Private Sub Form_Load()
  Dim db As Database
  Dim cnt As Container
  Dim doc As Document
  Dim strList As String
  Set db = CurrentDb
  Set cnt = db.Containers!Reports
  For Each doc In cnt.Documents
   strList = strList & doc.Name & ";"
  Next
  Me!lstReports.RowSourceType = "Value List"
  Me!lstReports.RowSource = strList
End Sub