Microsoft Access 掲示板

よろしくお願いします。こんなところで躓くとは思わなかったのですが、かれこれ2日間くらいあれこれやって、どうしてもできません。

10年以上前に作った競馬の成績表示ソフトを作り直しています。実はそのときもhatenaさんから教えていただいています。その節はどうもありがとうございます。

今回の作り直しなんですが、データをpostgresqlで作り、ODBCでリンクしたテーブルからクエリを作り、フォームはAccessで従来使っていたものを流用して表示しようと思ってます。Access2019、Windows11です。

まずサブフォームの帳票フォームに置いたボタンのクリックで、もう一つのサブフォーム付きの単票フォームを開こうと思ってます。
競馬場+芝・ダートの別からjo_shiba_dirtというカラムを作り、それを日付ごとに並べたものが最初のフォームです。
そのサブフォームに置かれたボタンに下のようなVBAを書いて、ニつ目のフォーム（F_T0指数表示用）を開こうと思います。

    Dim strWhere3 As String
    strWhere3 = "jo_shiba_dirt =" & "'" & Me!jo_shiba_dirt & " '"

    DoCmd.OpenForm "F_T0指数表示用", acNormal, "", strWhere3, acFormPropertySettings, acWindowNormal

古いプログラムではこれで問題なく動いていたのですが、プログラムを新しくしたら、これがどうやってもできません。
最初のサブフォームにテキストボックスの名前を変えてみたり、ヘッダーのところに別の名前で置いてみたりしてもできません。

できないというのは、本来は図1のようになるところ、図2のようにのっぺらぼうになってしまうのです。

どうしたらいいかわからず途方に暮れています。よろしくご教授お願いします。