Error en conexión en tiempo de ejecución !!

[jhonny]

Y si usas este codigo?

ADOTable1.Close;
ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName('Nombre').AsString := Temp.Nombre;
ADOTable1.FieldByName('Fecha').AsDate := Temp.Fecha;
ADOTable1.FieldByName('CodDeudor').AsString := Temp.CodDeudor;
ADOTable1.FieldByName('Deudor').AsString := Temp.Deudor;
ADOTable1.FieldByName('CodProd').AsString := Temp.CodProd;
ADOTable1.FieldByName('Descrip').AsString := Temp.Descrip;
ADOTable1.FieldByName('UM').AsString := Temp.UM;
ADOTable1.FieldByName('Cantidad').AsFloat := Temp.Cantidad;
ADOTable1.FieldByName('Importe').AsFloat := Temp.Importe;
ADOTable1.FieldByName('Confirm').AsString := Temp.Confirm;
ADOTable1.FieldByName('Comprado').AsString := Temp.Comprado;
ADOTable1.FieldByName('Ubicado').AsString := Temp.Ubicado;
ADOTable1.FieldByName('CodUbicado').AsString := Temp.CodUbicado;
ADOTable1.FieldByName('FechaModif').AsDate := Temp.FechaModif;
ADOTable1.Post;
ADOTable1.Close;

Que sucede?

Espero que te sirva.