AJUDA COM DTPICKER

if me.DTPicker1.CheckBox = False then
   insere no campo o valor 0
else
   continuacao do seu codigo
end if

Private Sub cmdSalvar_Click()

[txt-color=#006600]'Este valor e sempre True[/txt-color]
If Me.DTPWinMonth.CheckBox = False Then
    MsgBox " Teste"
End If

Novo = Inserir(MSKDK.Text, txtRazao.Text, MSKGrupo, cboSales.Text, cboRM.Text, txtPotReport.Text, DTPWinMonth.Value, DTPDatOperad.Value, DTPTMA.Value, DTPLoss.Value, cboSegment.Text, cboStatus.Text, cboKind.Text, cboCCusto.Text, cboLocation.Text, cboState.Text, txtCelula.Text, txt1CelAtend.Text, DTP1DatCelula.Value, txt2CelAtend.Text, DTP2DataCel.Value, txtPlatAtend.Text, MSKCnpj.Text, txtAcordos.Text, txtFopA.Text, txtFopHtl.Text, txtFopCar, txtPV.Text, MSKIata.Text, txtPCC.Text, txtUopTam, txtSupervisor.Text, txtEmail.Text, MSKFone.Text, MSKFax.Text)

LlenaListViewClient

If Novo = True Then
Else
MsgBox "DK cadastrodo com sucesso", vbYes
End If

MSKDK.SetFocus

End Sub