Microsoft Access 掲示板

私の質問に明確に回答していただけないようなので、
こちらで勝手に推測して回答します。

メインフォームは非連結(「レコードソース」プロパティが空欄)
メインフォーム上のチェックボックスの名前
Chk北海道、Chk秋田、・・・Chk沖縄　(48個)

サブフォームコントロールの名前
SubMST実査実績一覧

サブフォームのレコードソースの設定値　MST実査実績一覧
サブフォーム上のチェックボックス
名前とコントロールソースの設定値は同じでそれぞれ下記のように設定されている。
北海道、秋田、・・・沖縄　(48個)

やりたいことは、
メインフォーム上のコマンドボタン「新規登録」のクリックで、
メインフォームの各チェックボックスの値を、
サブフォームの新規レコードのYes/No型のフィールドに転記する。

以上の推測での回答です。

Private Sub 新規登録_Click()
    With Me.SubMST実査実績一覧.Form.Recordset
        .AddNew
        !年月日 = Me.Txt実査実施日
        !担当者 = Me.Cmb実査担当者
        !北海道.Value = Me.Chk北海道
        !北海道.Value = Me.Chk秋田
        '中略
        !北海道.Value = Me.Chk沖縄
        .Update
        Me.Cmb実査ID.Value = !ID
    End With
    Msgbox("登録完了しました。")
End Sub

解説
サブフォームのレコードセットは、フォームが開いたときにすでに生成されているので
ADOでRs.Openする必要はない。
Me.埋め込み1.Form.Recordset でレコードセットを取得できるのでそれに対して転記処理を実施すればよい。

以上です。
これでこの件に関しては私からのアドバイスは終わりとさせていだきます。