急！急！急！求界面将Excel表格导入到SQL 2000的详细代码 ( 积分: 100 )

我看了很多Excel导入到SQL SERVER2000 的SQL语句，如：insert into 表 select * from
OPENROWSE('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=c:/test.xls',sheet1$)，等，不过参数老是有问题，有哪位高手可以给我详细的代码，在界面里导入Excel到SQL server里，
procedure TForm1.Button1Click(Sender: TObject); 开始的代码，谢了。
可以发来我邮箱：beckham2244@163.com

旧底，改吧
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into qtcwhz (科目代码,科目名称,科目类别,余额方向) select 科目代码,科目名称,科目类别,余额方向 from ');
sql.Add(' OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source=''''C:/科目表.xls'''';Extended Properties=''''Excel 5.0;HDR=Yes;'''';Persist Security Info=False'')...科目');
execsql;
end;
end;

那我在哪里设置被导入的数据库呢，例如要指定导入到数据库DMIS？
还有data sourse的路径可以dialogs控件选择嘛？可以灵活选择要导入的文件。
ADOQuery1的属性要不要设置什么呢？谢谢。。