ExcelVBAを使用し、accessのテーブルにレコード追加

Sub ボタン3_Click()

    Dim dbPath As String
    dbPath = "C:\Users\hayab\Desktop\てすと！！\テスト.accdb"

    ' データベース接続を開始
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath

    ' SQLクエリを作成
    Dim strSQL As String
    
''''''SQLではRange（配列型）は対応できないため、各セルから抽出する''''''''''''
    Dim レンジ系 As String
    Dim cell As Range
 
 
 ' レンジ系の各セル値を取得し、カンマで区切って文字列に結合
For Each cell In Range("B10:B12")
    レンジ系 = レンジ系 & cell.Value & ","
Next cell

' 最後のカンマを削除
If Len(レンジ系) > 0 Then
    レンジ系 = Left(レンジ系, Len(レンジ系) - 1)
End If
      
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  
  
'''''日付型は、事前にフォーマットに変換する必要がある。'''''''''''''''''''''''''''''''''
Dim 日付型 As Date
日付型 = Range("B7").Value
  
  
' 日付を yyyy/mm/dd 形式の文字列に変換
Dim 日付文字列 As String
日付文字列 = Format(日付型, "yyyy/mm/dd")
  
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
''チェックボックスがチェックされているか否かによって、「有」「無」とレコードに記載する''

Dim チェックボックス As String
If Sheets("Sheet1").Shapes("チェック 4").ControlFormat.Value = xlOn Then  'フォームコントロールの「チェック 4」というcheckbox
    チェックボックス = "有"
Else
    チェックボックス = "無"
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    
    文字型1 = Range("B5").Value
    文字型2 = Range("B6").Value
    数値型 = Range("B8").Value
    
  
  strSQL = "INSERT INTO T_テーブル (文字型１,文字型２,数値型,レンジ系,日付型,チェックボックス) " & _
            "Values('" & 文字型1 & "','" & 文字型2 & "'," & 数値型 & ",'" & レンジ系 & "','" & 日付文字列 & "','" & チェックボックス & "');"


    ' SQLクエリを実行
    conn.Execute strSQL

    ' データベース接続をクローズ
    conn.Close
    Set conn = Nothing
End Sub

    ' SQLクエリを実行
    conn.Execute strSQL

strSQL = "INSERT INTO T_テーブル (文字型１, 文字型２, 数値型, カレンダー, ボックス) VALUES (" & _
             "'" & Sheets("Sheet1").Cells(2, 5).Value & "', " & _
             "'" & Sheets("Sheet1").Cells(2, 6).Value & "', " & _
             Replace(Sheets("Sheet1").Cells(2, 8).Value, ",", "") & ", " & _
             "#" & Format(CDate(Sheets("Sheet1").Cells(10, 2).Value), "yyyy/mm/dd") & "#, " & _
             "'" & IIf(Sheets("Sheet1").Shapes("チェック 4").ControlFormat.Value = xlOn, "有", "無") & "')"

INSERT INTO T_テーブル (文字型１, 文字型２, 数値型, カレンダー, ボックス) VALUES ('aaa', 'bbb', 123, #2023/10/15#, '有')

' (変数の宣言はお任せします）
' ...
a = Sheets("Sheet1").Cells(2, 5).Value 
b = Sheets("Sheet1").Cells(2, 6).Value
c = Replace(Sheets("Sheet1").Cells(2, 8).Value, ",", "")
d = Format(CDate(Sheets("Sheet1").Cells(10, 2).Value), "yyyy/mm/dd") 

strSQL = "INSERT INTO T_テーブル (文字型１, 文字型２, 数値型, カレンダー, ボックス) VALUES (" & _
             "'" & Sheets("Sheet1").Cells(2, 5).Value & "', " & _
             "''テスト用文字列 '", " & _
             "999", " & _
             "#2023/10/15#, " & _
             "'有") & "')"

' 型はパッと見で書いてますので、間違ってたらご自身で修正をお願いします。