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

Evet o kodu silmeniz gerekirdi. Çünkü burası formun yüklendiği zaman işlenen kodlar. Dolayısıyla tüm rapor adlarını listeye yüklemiş oluyordu tekrardan.

Soru Çözülmüştür.Yardmlarınız için teşekküer ederim