jejejejej ahora si el codigo...
If DTPicker1.Value > DTPicker2.Value Then
MsgBox "Error en el parametro de las fechas:", vbKCancel, "error"
Else
If DatReport.Reportes.State = 1 Then
DatReport.SQL_DESCONOCE_CONTRATO DTPicker1.Value, DTPicker2.Value
Reporte_desconoce_contrato.Show vbModal
DatReport.Reportes.Close
Else
DatReport.Reportes.Open
DatReport.SQL_DESCONOCE_CONTRATO DTPicker1.Value, DTPicker2.Value
Reporte_desconoce_contrato.Show vbModal
DatReport.Reportes.Close
End If
End If