EVariantError con ADOTable

[chujor]

HOLA A TODOS
Soy novato en esto del delphi y estoy haciendo una aplicacion con base de datos y me he encontrado con un error que no se como arreglarlo.

el error es el siguiente:
Project1.exe raised excepcion class EVariantError with message 'Invalid variant conversion'

el error me lo da en este codigo:
Código Delphi [-]
conexion.Connected:=True;
tabla_ingresos.Active:=True; //Aqui me salta el error
tabla_ingresos.Insert;
tabla_ingresos.FieldByName('fecha').AsDateTime:= strtodate(edit1.text);



La base de datos que uso es Access y la conexion esta bien xq la he probado.
No se donde puede estar y ya me estoy volviendo loco, asi que si alguien me puede ayudar se lo agradeceria.

Un saludo