sayın mbb 

1   cn.Open "Data Source='" & Application.CurrentProject.Path & "\Database.accdb'"
satırına    " Database.accdb"  yazmışssınız oysaki  access uzantınız .mdb satırınıza .mdb yazmalıydınız
2 ekteki programınıza formda aratıp buldugunuz kayıtın raporunu almak için sorgu  yapılmış ölçüt verilmiştir inceleyiniz