Access VBA DAO Recordsetが検索できない

Question

やりたいこと

入力フォーマット.accdb と データベース.accdb という２つのファイルがあります。
入力フォーマット.accdb内には「empテーブル」というテーブルがあり、データベース.accdbには「表テーブル」というテーブルがあります。
empテーブルと表テーブルは列の構成が同じで、どちらもID列を持っています。
empテーブルのID列で表テーブルを検索し、もし同じIDの列があればその行を削除したいです。

コード

Private Sub 行の削除()

    Dim EmpDb As DAO.Database 
    Dim EmpRs As DAO.Recordset
    Set EmpDb = CurrentDb
    Set EmpRs = EmpDb.OpenRecordset("empテーブル") 'empテーブルを格納
    EmpRs.MoveFirst
    

    Dim Db As DAO.Database 
    Dim Rs As DAO.Recordset
    Dim DbPath As String
    DbPath = "データベース.accdbのパス"
    Set Db = OpenDatabase(DbPath)
    Set Rs = Db.OpenRecordset("表テーブル", dbOpenDynaset) '表テーブルを格納

    Dim Criteriaon as String

    Do Until EmpRs.EOF '最後の行までくりかえす
    
        Criteriaon = "[ID] = '" & EmpRs("ID") & "'" '**うまくいかない部分**
        Rs.FindFirst Criteriaon

        If Rs.NoMatch Then
            '見つからない場合の処理
        End If

        Rs.Delete '同じ行があれば削除

    Loop

困っていること

例えばempテーブルのIDが11だったら、表テーブルを検索するために Rs.FindFirst [ID] = '11' となるように記述すればいいと思い、検索に使う文字列はいったんCriteriaonにまとめようと考えました。
作成当初（１年ほど前、Access2019で作成？）はこれで目当てのRecordsetが検索でき、Rs.Deleteで削除できたので、このコードを使う人とも動作確認をして渡しました。
しかし最近になってうまく削除できなくなったと伝えられ、あらためて見直してみると、 Rs.FindFirst [ID] = '11 となぜか後の「'」が消えてしまい、見つからない処理へ分岐していました。これ以降どうあがいても後の「'」を付け足すことができません。削除できなくなった原因はこれではないかと思いますが、正直わかりません。

試したこと

（すべてEmpRs("ID")が11の場合）
コード：Criteriaon = "[ID] = '" & EmpRs("ID") & "'"
結果：[ID] = '11

コード：Criteriaon = "[ID] = " & Chr(39) & EmpRs("ID") & Chr(39)
結果：[ID] = '11

コード：Criteriaon = "[ID] = '11'"（試しに直打ち）
結果：[ID] = '11' ← こうなりたい

なんでこうなるのかまったくわからずお手上げ状態です。
恐れ入りますが、ご助力ください。よろしくお願いします。

Answer 1

コード：Criteriaon = "[ID] = " & Chr(39) & EmpRs("ID") & Chr(39)
結果：[ID] = '11

EmpRs

ID
10
’11
12

コード：Criteriaon = "[ID] = " & Chr(39) & '11 & Chr(39)
結果：[ID] = '11

まさかね。

Answer 2

Criteriaon = "[ID] = '" & EmpRs("ID") & "''

を

Criteriaon = "[ID] = '" & EmpRs("ID") & "'"

としたらどうでしょう。
最後の 'を"に修正。

IDフィールドはテキスト型で間違いないですか。数値型だとエラーになります。

---

あと、DB と rs という変数が、宣言なしに使われてますが、大丈夫ですか。ちゃんと宣言しておいた方がいいと思います。

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset

Comments

[DondokoYama]

答えていただいたのに申し訳ございません。こちら質問文書き間違えていました。指摘いただいた部分修正しました。
コード自体は正しく Criteriaon = "[ID] = '" & EmpRs("ID") & "'" となっているのですが、最後のクォーテーションが表示されず困っております。

[hatena19]

怪奇現象としか思えません。
とりあえず、シンプルに下記のコードを実行したら、
イミディエイトウィンドウに何が出力されますか。

Dim EmpRs As String
Dim Criteriaon as String
EmpRs = "11"
Criteriaon = "[ID] = '" & EmpRs & "'"
Debug.print Criteriaon