Set cn2 = CreateObject("ADODB.Connection")
cn2.Provider = "Microsoft.Jet.OLEDB.4.0"
cn2.Properties("Extended Properties") = "dBase IV"
cn2.Properties("Data Source") = FolderPath
cn2.Open

sqlstr = "insert into FRM (ID, KEY1, KEY2, KEY3, NCS, BASE_ID, CAN_ID, FORMULA, UNDCOAT_ID, SPROC_ID, PART,R_MON,G_MON,B_MON,R_PRN,G_PRN,B_PRN,X_02,Y_02,Z_02,X_10,Y_10,Z_10, COMMENT, DATA1, DATA2) VALUES " & _
 "('" & FRM_ID & "','" & KEY1 & "','','','','" & BASE_ID & "','" & Can_ID & "','" & FRM & "','','',0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1," & ass & ", '','','')"
                      
cn2.Execute sqlstr

cn2.Close
Set cn2 = Nothing