做一个EXCEL导入程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问想做一窗口如下：

此主题相关图片如下：t1.jpg

“选择文件”控件代码如下：

With e.For m

Dim dlg As New OpenFileDialog

dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx"

If dlg.ShowDialog = DialogResult.Ok Then

.Controls("TextBox1").value = dlg.FileName

.Controls("ComboBox1").Value = ""

.Controls("Table1").Table.DataTable.DataRows.clear()

.Controls("ComboBox1").Select()

End If

End With

例如对应的数据库下（SQL2005）有表名称为部门表，选择的EXCEL文件内容也与数据库表字段一致。

想将EXCEL文件导入到数据库下，请问老师“导入数据”功能按钮处代码应该如何写才能实现功能？

主题：做一个EXCEL导入程序