"Set rs = Me.recordset.Clone" hatası

arkadaşlar,kısaca sorunum şu
daha önce çalışan aşağıdaki kod şimdi hata veriyor
......... Set rs = Me.recordset.Clone ........
burası hata veriyor ve sarı yanıyor
hata mesajında ise aktivexten bahsediyor,bilgisi olanlar varsa sevinirim.benim internet olmadığı icin geç girebirim.kolay gelsin

liste kutusundki ismlere tıklsdığımdaki kod

............ ' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.recordset.Clone
rs.FindFirst "[SNO] = " & Str(Nz(Me![Liste26], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark..........

Ado yükle

dao.3.6 referansında sorun var demektir büyük ihtimalle eski bir program yüklediniz ve oda sizin var olan dao referansını eski versiyon ile değiştirdi programın örneğini yüklerseniz bakarız başka bir şeyden de olabilir

hocalarım her ikinizede teşekkürler.dao.3.6 referansında sorun varmaış yeniden yaptım düzeldi

Ben de zaten ado yazmışım. Eşref var allahtan))