Microsoft Access 掲示板

メインフォームに日付の開始日（テキストボックス　日付）と終了日（テキストボックス　日付）を設けています。その他”ID（コンボボックス　Integer）”””社員名(コンボボックス　String)　後は都道府県(チェックボックス　YesNo型)で48都道府県が並んでいる状態です。それとコマンドボタンを4つ置いてます。（新規、編集、クリア、統計ＭＡＰ）があります。そこにサブフォーム（一覧表のフォームです。。。）も表示させてあります。”
一つのＭＳＴとなるフォームがあって、全てIDでリレーションシップでテーブルを最初に（クエリではない）つなげています。
主Keyは社員（勝手に番号[ID]を付けています。）です。サブフォームには社員名単位でチェックボックスが48個　都道府県ごとに並んでいます。
最終的には　コマンドボタンの”統計ＭＡＰ”ボタンで　どの社員さんが、どこの都道府県を訪れているか　分布図が表示できるものを作りたいと思っています。
お力を貸し願えましょうか。何卒宜しくお願いします

'''Private Sub Cmd新規登録_Click()
MyForms=Forms!MAINMST実査実績!Chk実査flg

'ADO接続開始
Dim Cn ADODB.Connection
Dim Rs ADODB.Recordset

Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset

Rs.Open "MST実査実績一覧",Cn,adOpenkeyset,adLockOptimistic

Dim a,b,c,d,e,f,g As Variant
a=""
a=Nz(Dlookup("ID","MST実査実績一覧","実査住所='" &
Me.Txt実査住所.Value & "'),"" AND "& "担当者='"
& Me.Cmb実査担当者.Value & "'"),"")

a=MsgBox("登録しますか？",vbYesNo + vbDefaultButton1)
If a = vbYes Then

'登録
Rs.AddNew
'上記の個所で実行時エラー”テーブルが設定されたレコードが必要なので、レコードの追加や変更ができません。と表示されてしまいます。
Rs!年月日 = Me.Txt実査実施日
Rs!担当者 = Me.Cmb実査担当者
'チェックボックス
Rs!北海道=Me.Chk北海道.Value
Rs!青森=Me.Chk青森.Value
' ⇃
' ⇃
' ⇃
Rs!沖縄=Me.Chk沖縄.Value
Me.SugMST実査実績一覧.Form.Filter=""
Me.SubMST実査実績一覧.Form.FilterOn=False
Rs.Update

a=Dmax("ID","MST実査実績一覧")
Me.Cmb実査ID.Value=a
b=Dlookup("年月日","MST実査実績一覧","ID=" & a)
Me.Txt実査実施日.Value=b
Msgbox("登録完了しました。"

'ADOを切断
Cn.Close
Set Cn=Nothing
End Sub'''
お怒りなことは重々承知の上、再度投稿させていただきます。
何卒　何卒ご指導よろしくお願いいたします。。。見捨てないでください。。。；；