[rodrigodeoz]

mira tienes que cambias asDateTime por asDate y asTime asi:

Código Delphi [-]
Dtmodulo.ADOTactividades.FieldByName('Fecha').asDate:=DateTimePicker1.Date
Dtmodulo.ADOTactividades.FieldByName('Hora').asTime:=DateTimePicker1.Time;
;