CurrentDb.Execute "insert into DOI ([SERIAL],[UNIT],[DOCUMENT],[ENTRY],[DUE],[TASK],[LESSON],[responsible],[SME REVIEW REQUIRED]) values ('" & SERIAL.Value & "','" & unitStr & "','" & DOCUMENT.Value & "','" & ENTRY.Value & "','" & DUE.Value & "','" & TASK.Value & "','" & Combo103.Value & "','" & Combo50.Value & "','" & "Y" & "')"
|