コンパイルエラーが出ます。助けて下さい。

コンパイルエラーが出ます。助けて下さい。

初歩的な質問ですみません。
参考書を参考に検索するVBAを書いたのですが、
12行目のFindfirstの所で、「コンパイルエラー：メソッドまたはデータメンバが見つかりません」
というメッセージが出てしまいます。

VBAは、下記の通りです。
宜しくお願いします。

********************************************************************************************************************************************
Private Sub 検索_Click()
　　Dim kaizen_rs As Recordset
　　Dim field_name As String
　　Dim find_txt As String
　　Dim criteria As String

　　field_name = "提案内容"
　　find_txt = InputBox("検索したい文字を入力してください。")
　　criteria = field_name & "='" & find_txt & "'"

　　Set kaizen_rs = CurrentDb.OpenRecordset("管理/提案テーブル", dbOpenDynaset)
　　kaizen_rs.FindFirst criteria
　　　　If kaizen_rs.NoMatch Then
　　　　　　MsgBox find_txt & "は見つかりません"
　　　　Else
　　　　　　Do Until kaizen_rs.NoMatch
　　　　　　　　MsgBox find_txt & "を" &　kaizen_rs.AbsolutePosition + 1 & "レコード目で見つけました。"
　　　　　　　　kaizen_rs.FindNext criteria
　　　 　　Loop
　　　　End If
End Sub

******************************************************************************************************************************************************

投稿日時 - 2004-08-15 03:47:10