sayın oğuz türkyılmaz 
1 - resimdeki kütüphaneleri ekleyip



2 - 
Dim dba As Database
Dim Wr As Recordset  yazan kodların başına "DAO." eklediğimde sorun çözüldü (en azından bende öyle görünüyor).

Dim dba As dao.Database
Dim Wr As dao.Recordset
 yalnız bölünmüş veritabanında veritabanının yedeğini almıyor gibi geldi
sadece form rapor gibi nesneleri yedekliyor