怎么将Excel文件导入SQL Server2000数据库表中

如何将Excel文件导入SQL Server2000数据库表中
有很多帖子讲过这个问题，但不是在BCB里面实现的。而我要的是通过BCB，程序或者控件都可以 非常感谢

[解决办法]
http://www.ccrun.com/article.asp?i=638&d=5b0165
or

http://topic.csdn.net/t/20030621/21/1942600.html
[解决办法]
if(OpenDialog1->Execute()) 
{ 
AnsiString ds; 
ds=OpenDialog1->FileName; //获取Excel文件全路径 
try 
{ 
ADOQuery1->SQL->Clear(); //清空sql 
ADOQuery1->SQL->Add("INSERT INTO 原始数据表 SELECT * FROM OPENROWSET('MSDASQL','DRIVER={Microsoft Excel Driver (*.xls)};DBQ="+ ds +"','SELECT * FROM [smaster$]')") ; //添加sql 
ADOQuery1->ExecSQL() ;//不能用Open 

} 
catch(...) 
{ 
MessageBox(this->Handle,"Excel文件格式不对，不能包含制表符(Tab) \n 。","提示",MB_OK); 
return; 
}