Dim sourceSheet As Worksheet
Dim dataSheet As Worksheet
Dim dat As Double
Dim CN As String
Dim BN As String
Dim ChNO As Long
Dim Ma1 As String
Dim Qu1 As Integer
Dim Un1 As String
Dim Ma2 As String
Dim Qu2 As Integer
Dim Un2 As String
Dim Ma3 As String
Dim Qu3 As Integer
Dim Un3 As String
Dim Ma4 As String
Dim Qu4 As Integer
Dim Un4 As String
Dim Ad As String
Dim SAd As String
Dim VNo As String
Dim Ph As String
Dim Sup As String
Dim Bno As String


dat = cdbl(sourceSheet.Range("F4").Value)
CN = sourceSheet.Range("F6").Value
BN = sourceSheet.Range("F8").Value
ChNO = sourceSheet.Range("F10").Value
Ma1 = sourceSheet.Range("F12").Value
Qu1 = sourceSheet.Range("F14").Value
Un1 = sourceSheet.Range("F16").Value
Ma2 = sourceSheet.Range("F18").Value
Qu2 = sourceSheet.Range("F20").Value
Un2 = sourceSheet.Range("F22").Value
Ma3 = sourceSheet.Range("F24").Value
Qu3 = sourceSheet.Range("F26").Value
Un3 = sourceSheet.Range("F28").Value
Ma4 = sourceSheet.Range("F30").Value
Qu4 = sourceSheet.Range("F32").Value
Un4 = sourceSheet.Range("F34").Value
Ad = sourceSheet.Range("F36").Value
SAd = sourceSheet.Range("F38").Value
VNo = sourceSheet.Range("F40").Value
Ph = sourceSheet.Range("F42").Value
Sup = sourceSheet.Range("F44").Value
Bno = sourceSheet.Range("F46").Value


strQry = "INSERT INTO Data ([Date], [Contact Name], [Business Name], [Challan number], [Material 1], [Quantity 1], [Unit 1], [Material 2], [Quantity 2], [Unit 2], [Material 3], [Quantity 3], [Unit 3], [Material 4], [Quantity 4], [Unit 4], [Address], [Short Address], [Vehicle no], [Phone], [Supplier], [Bill no]) " & _
           "VALUES (" & dat & ", '" & CN & "', '" & BN & "', " & ChNO & ", '" & Ma1 & "', " & Qu1 & ", '" & Un1 & "', '" & Ma2 & "', " & Qu2 & ", '" & Un2 & "', '" & Ma3 & "', " & Qu3 & ", '" & Un3 & "', '" & Ma4 & "', " & Qu4 & ", '" & Un4 & "', '" & Ad & "', '" & SAd & "', '" & VNo & "', '" & Ph & "', '" & Sup & "', '" & Bno & "')"

I’m getting INSERT INTO syntax error every time it tries to execute strQry.
All the Variables are Defined .
Example for “Bno. = 24-25/2024” , “Vno. = AB12CD1234”
rest are normal texts and numbers.
I’ve tried Chatgpt to write string but i am still getting the same error.
Database is access file “.accdb”