Konvertering fra 97 til 2002

Jeg har konverteret en 97 database til v2002 (XP), men nu er der noget af koden der ikke virker, Jeg får følgende fejlmeddelelse:

Der kan ikke søges i det aktuelle kontrolelement "bnt find record".

koden ser ud som følger:
Private Sub btn_find_record_Click()
On Error GoTo Err_btn_find_record_Click


    DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit_btn_find_record_Click:
    Exit Sub


Err_btn_find_record_Click:
    MsgBox Error$
    Resume Exit_btn_find_record_Click
   
End Sub
Jeg har prøvet at udskifte DoCmd linien med: DoCmd.RunCommand acCmdFind
Men jeg får stadig samme fejlmelding !