Как исправить Вставить в VBA ACCESS

Question

Я все еще учусь, я хочу вставить данные в таблицу, но получить (Ошибка времени выполнения '3061', слишком мало параметров. Ожидается 38)

Я искал ошибку около недели, я проверил столбцы, которые я должен поставить в скобки, но ничего не получил. Я отслеживал, используя точку останова, я получаю всю ценность, поэтому я не понимаю почему. Спасибо за продвижение

 strSQL = " INSERT Into Tbl_Mst_Lisensi(Kode_Lisensi, ID_License, Jdl_BhsIndonesia, Jdl_BhsInggris, SKK, TD, FG, SP, SG, PreTest, PostTest, KT, SE, SOP, SOPQ, Format, [Note], Current_Resources, Training, Status_Del, [Group], SKK_Ver, TD_Ver, FG_Ver, SP_Ver, SG_Ver, PreTest_Ver, PostTest_Ver,  KT_Ver, SE_Ver, SOP_Ver, SOPQ_Ver, [Date_Created], Id_Group, Id_SubGroup, [User_CDO], [User_Proposed], [User_Approved] )" & vbCrLf & _
                " VALUES ([pKode_Lisensi], [pID_License], [pJdl_BhsIndonesia], [pJdl_BhsInggris], [pSKK], [pTD], [pFG], [pSP], [pSG], [pPreTest], [pPostTest], [pKT], [pSE], [pSOP], [pSOPQ], [pFormat], [pNote], [pCurrent_Resources], [pTraining], [pStatus_Del], [pGroup], [pSKK_Ver], [pTD_Ver], [pFG_Ver], [pSP_Ver], [pSG_Ver], [pPreTest_Ver], [pPostTest_Ver],  [pKT_Ver], [pSE_Ver], [pSOP_Ver], [pSOPQ_Ver], [pDate_Created], [pId_Group], [pId_SubGroup], [pUser_CDO], [pUser_Proposed], [pUser_Approved] );"

 Set db = CurrentDb
 Set qdf = db.CreateQueryDef(vbNullString, strSQL)

      qdf.Parameters("pKode_Lisensi").Value = Me.txt_KodeLisensi.Value
      qdf.Parameters("pID_License").Value = Me.cmb_idLic.Value
      qdf.Parameters("pJdl_BhsIndonesia").Value = Me.txtBhsIndo.Value
      qdf.Parameters("pJdl_BhsInggris").Value = Me.txtBhsInggris.Value
      qdf.Parameters("pSKK").Value = iSKK
      qdf.Parameters("pTD").Value = iTD
      qdf.Parameters("pFG").Value = iFG
      qdf.Parameters("pSP").Value = iSP
      qdf.Parameters("pSG").Value = iSG
      qdf.Parameters("pPreTest").Value = iPre
      qdf.Parameters("pPostTest").Value = iPost
      qdf.Parameters("pKT").Value = iKT
      qdf.Parameters("pSE").Value = iSE
      qdf.Parameters("pSOP").Value = iSOP
      qdf.Parameters("pSOPQ").Value = iSOPQ
      qdf.Parameters("pFormat").Value = Me.txtFormat.Value
      qdf.Parameters("pNote").Value = Me.txtNote.Value
      qdf.Parameters("pCurrent_Resources").Value = Me.txtResources.Value
      qdf.Parameters("pTraining").Value = Me.AttcFile.Value
      qdf.Parameters("pStatus_Del").Value = i
      qdf.Parameters("pGroup").Value = del
      qdf.Parameters("pSKK_Ver").Value = Me.txtSKK.Value
      qdf.Parameters("pTD_Ver").Value = Me.txtTD.Value
      qdf.Parameters("pFG_Ver").Value = Me.txtFG.Value
      qdf.Parameters("pSP").Value = Me.txtSP.Value
      qdf.Parameters("pSG_Ver").Value = Me.txtSG.Value
      qdf.Parameters("pPreTest_Ver").Value = Me.txtPre.Value
      qdf.Parameters("pPostTest_Ver").Value = Me.txtPost.Value
      qdf.Parameters("pKT_Ver").Value = Me.txtKT.Value
      qdf.Parameters("pSE_Ver").Value = Me.txtSE.Value
      qdf.Parameters("pSOP_Ver").Value = Me.txtSOP.Value
      qdf.Parameters("pSOPQ_Ver").Value = Me.txtSOPQ.Value
      qdf.Parameters("pDate_Created").Value = Me.txt_DateTime.Value
      qdf.Parameters("pId_Group").Value = Me.Combo18.Value
      qdf.Parameters("pId_SubGroup").Value = Me.cmbSubGroup.Value
      qdf.Parameters("pUser_CDO").Value = Me.cmbCDO.Value
      qdf.Parameters("pUser_Proposed").Value = Me.txtProposed.Value
      qdf.Parameters("pUser_Approved").Value = Me.txtApproved.Value

     qdf.Execute