把EXCLE文件内容导入datagrid中解决办法

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tb As DataTable = Nothing

        Using dlg As New OpenFileDialog
            With dlg
                .Filter = "*.xls|*.xls"
                .Multiselect = False

                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    Dim db As New LzmTW.Data.ExcelDatabase(.FileName)

                    Dim tables As DataTable = db.GetConnectionSchema("Tables")

                    '只取第一个
                    Dim firstSheet As String = tables.Rows(0)("TABLE_NAME").ToString

                    tb = db.GetDataTable("[" & firstSheet & "]")
                End If

            End With
        End Using

        If Not tb Is Nothing Then
            Me.DataGridView1.DataSource = tb
        End If
    End Sub
End Class