Private Sub Form_Load()

Dim frm As Form

Dim ctl As ListBox

Dim aob As AccessObject

Dim obj As Object

Dim strList As String

Set frm = Forms!frmSendMail

Set ctl = frm!lstObject

Set obj = CurrentProject.AllReports

For Each aob In obj

    strList = strList & aob.Name & ";"

Next

lstObject.RowSourceType = "Value List"

lstObject.RowSource = strList

End Sub