[Choclito]

hola amigos del foro mi problema es el siguiente
Me pidieron importar datos de excel a la base de datos en Firebird algo asi como el que tiene EMS par firebird
vi en el foro y encontre un post donde dan una referencia de excel para paradox el detalle es que ellos quisieran escoger el archivo xls del cual quieren importar datos
Para lo cual me vase en ese post y añadi un opendialog para buscar en cls de la maquina y cargarlo la ruta en un label hice lo siguiente :

Código Delphi [-]
procedure TF_migrador.LMDSpeedButton1Click(Sender: TObject);
begin
abrir.Execute;
label1.Caption:=abrir.FileName;
coneccion.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;
//aqui cargo el caption del label
Data Source=label1.caption Mode=ReadWrite;Extended Properties=Excel 8.0;Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";
Jet OLEDB:Engine Type=35;Jet OLEDBatabase Locking
Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

end;

procedure TF_migrador.LMDSpeedButton4Click(Sender: TObject);
begin
coneccion.Connected:=true;
datos.Active:=true;
end;

coneccion es el adoconection
datos es e adodataset

Contarles de q no da me da un error de unterminated string
Donde esta el error ??? que esta mal?? que otras opciones mas hay para importar datos de excel a firebird?
Indicarles q soy nuevo en esto pero gracias al foro estoy aprendiendo muchas cosas
Trabajo con delphi7 firebird
Estare muy agradecido por toda la ayuda que me brinden