Evet hocam rapor isimlrini kedim girince oldu yalnız Formözelliklerinden aşağıdaki kodu çıkarınca çalıştı

Private Sub Form_Load()

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentProject

Dim liste As String

For Each obj In dbs.AllReports

liste = liste & ";" & obj.Name

Next obj

cb_raporlar.RowSource = liste

End Sub

Teşekkürler