怎么将EXCEL表导入到SQL数据库中

如何将EXCEL表导入到SQL数据库中?
使用ADO控件连接SQL数据库,现在需要把EXCEL文件导入SQL数据库,该怎么办?谢谢!

------解决方案--------------------
VB code

Private Sub ImportExcel(strExcelName As String)
Dim objExcel As Excel.Application
Dim i As Integer
Set objExcel = New Excel.Application
objExcel.Workbooks.Open strExcelName 
'你的一些判断
i=2
While objExcel.Cell(i,1).value<>""
  '根据excel每行的值,做你的数据库操作
i=i+1
Wend
objExcel.Quit
End Sub

------解决方案--------------------
同样使用ADO连接Excel查询,将得来的记录集插入Sql数据库中