Accessにおいて、コンパイルエラーの直し方

Question

前提

accessのvbaを使用して検索フォームを作成しようと思っています。
しかしSQLを実行しようと思ったらエラーが出てきて解消できません。

発生している問題・エラーメッセージ

コンパイルエラー

ユーザ定義型は定義されていません

該当のソースコード

Private Sub 実行_Click()
    Dim SQL As String
    Dim rs As Recordset
    
    Me!テキスト0 = Null
    
    SQL = "SELECT * FROM sample;"
    
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
    Me!テキスト0 = Me!テキスト0 & rs![馬名] & vbCrLf
    rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

試したこと

このプログラムは以下の動画のプログラムを切り取り実行しました。
https://www.youtube.com/watch?v=OhuKdvqD0Jk

ネットで調べたら参照設定がいけないと思い少しいじりましたのですが、エラーは治りませんでした。以下は参照設定のチェックが付いている部分です。

既存の設定
Visual Baasic For Applications
Microsoft Access 16.0 Object Library
OLE Automation
Microsoft Access Wizard Control Library 8.2
新しく追加した設定
Microsoft Office 16.0 Object Library

Answer 1

参照設定に、
Microsoft Office 16.0 Access database engine Object Libraty
を追加してください。

あと、
Dim rs As Recordsetは
Dim rs As DAO.Recordsetとしたほういいです。

ADOを参照設定したときにトラブルになる可能性がありますので。

Comments

[syosinsya109]

回答ありがとうございます。
参照設定をいじったらいけました！

Answer 2

以下を確認して下さい。
・そのフォームに「テキスト0」という名前のテキストボックスがあるか
・「sample」というテーブル若しくはクエリーがあり、項目に「馬名」というフィールドがあるか

Comments

[syosinsya109]

回答ありがとうございます。
2つとも条件は満たしています。
また、デバックしたら以下の箇所がエラーになりました
Private Sub 実行_Click()
なので打ち間違いではないかと思われます。