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' ← こうなりたい

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