[十万火急]EXCEL导入到DataGridview问题
要将EXCEL文件中数据导入到系统DataGridview（DVG1）控件中
因为本身DataGridview本身就有用于查询显示，所以导入后还不能影响到查询
查了一些资料，写了段代码，导入到是能导入，也还没影响到其他的按钮。
但是导入的数据只有纯数字的~~其他的都显示为空，而且导入后在网格上添加上不是数字的数据还会报错。
请帮忙修改下~~~~
PS。因为列比较多，只弄出了前三行
Private Sub btn_EXCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EXCEL.Click
Dim Excel As String
Me.OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xls"
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Excel = Me.OpenFileDialog1.FileName
Dim myDataset As New DataSet
Dim ExcelConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Excel & "';Extended Properties=Excel 8.0;"
Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT 0 as SEQ,'' as ID , * FROM [Sheet1$]", ExcelConnStr) '前2列，分别为选择和添加按钮后系统给的ID，导入的数据没
Me.Cursor = Cursors.WaitCursor
Try
myDataAdapter.Fill(myDataset)
myDataset.Tables(0).Columns(0).ColumnName = "SEQ"
myDataset.Tables(0).Columns(1).ColumnName = "ID"
myDataset.Tables(0).Columns(2).ColumnName = "Name"
'为避免EXCEL第一行标题可能出现的错别字和网格本身的设置，统一处理表名
DGV1.DataSource = myDataset.Tables(0)
Catch ex As Exception
Me.Cursor = Cursors.Default
Exit Sub
End Try
End If
End Sub
