VB与EXCEL的无缝连接

代码说明：

VB与EXCEL的无缝连接:  "从excel文件获得数据后，插入记录到SQL Server的数据表  Dim dataTable1 As DataTable = New DataTable() Dim sqlDA1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("SELECT 部门,全年任务, 本年累计完成,上年同期完成, [完成全年任务的%],[可比增长%] FROM Rwb ", sqlcon)