Segue exemplo, porém essa seria uma das variáveis que o preenchimento seria opcional, o dados a serem inseridos estão carregados em uma combo.
Property Get CodOrigem() As Variant
CodOrigem = intCodOrigem
End Property
Property Let CodOrigem(argCodOrigem As Variant)
intCodOrigem = nz (argCodOrigem, 0)
End Property
db.Execute "Insert into CADCHAM (CODCHAM, CODORIGEM, CODPRIORI, CODSETOR, CODSOLICI, CODSTATUS, CODMOTIVO, DTABERTURA , DTCHAM, DSSOLUCAO, DSSTATCHAM) VALUES (" & codigo & ", " & CodOrigem & ", " & CodPriori & ", " & CodSetor & ", " & CodSolici & ", " & CodStatus & ", " & CodMotivo & " , #" & Now & "#, #" & Now & "#, '" & DsSolucao & "', '" & stat & "' )"