ADOQuery1.Close;
ADOQuery1.SQL.text := 'SELECT * FROM [Hoja1$]';
ADOQuery1.Open;
DM.ADOConnection1.Connected := false;
ADOConnection1.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;'+
'Data Source='+Edit1.text+
';Mode=Share Deny None;Extended Properties="Excel 12.0 Xml;'+
'HDR=yes";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=37;'+
'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 OLEDBont Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;'+
'Jet OLEDB:Support Complex Data=False';
ADOConnection1.Open;