Благодаря на всички които си предложиха помоща. Беше ми от огромно значение.
Реших си проблема.
За други , които като мене ще се трепят над същия проблем , ще кажа какво направих:
1.сложих IMEX=0 в ConnectionString-a. Сега изглежда така:
ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AAA.XLS;Extended Properties="Excel 8.0;HDR=No;IMEX=0"';
Тез от МS$ са като банките - с малък шрифт , нейде на майната си е обяснено че Microsoft.Jet.OLEDB.4.0 по подразбиране слага само в стринг. IMEX=2 означавало стринг, пък 0 и 2 друго... А защо 0 и 2 , а не само 0.... Бате Бил е замислил сигур нещо занататъка...
2.Сложих празен файл и пуснах едно:
....
DataSource1.DataSet.first;
DataSource1.DataSet.edit;
DataSource1.DataSet.Fields[0].Value:=1;
...
ДА ДА - ама НЕ! Шатна ми го на третия ред чак... и ти като текст
3.Сложих в А1 на ексела антетка ....... Вече почваше писането от 2 ред... Е, един ред загубен - майната му. Ама пак си беше текст тъпата единица...
4.Форматирах А2 от ексела на цяло число с 0 знака и работата заспа.
5.пробвах с форматиране дата и число с 2 знака - ОК
6.Бегам за каса бира че ми пресъхна устата....


Може темата да се заключи!