waarom laad excel niet naar mij datatable?

[phobia]

Ik ben al een week aan het proberen en op google aan het zoeken.
Maar ik om er niet uit.
Waarom krijg ik mijn excel sheet niet in een datatable geladen?
en dan als datasource te gebruken om een datagrid te vullen?

Kan iemand me please verder helpen?
Dit is wat ik heb:

    Private Sub LstSheets_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstSheets.Click

        Dim xlWorksheet As Excel.Worksheet
        Dim Range As Excel.Range
        Dim x As Integer
        Dim rCnt As Integer
        Dim cCnt As Integer
        Dim Obj As Object
        Dim dt As New DataTable()

        xlWorksheet = xlWorkBook.Worksheets(LstSheets.SelectedItems.Item(0).Text)
        Range = xlWorksheet.UsedRange
        Try
            For x = 1 To Range.Columns.Count
                dt.Columns.Add(New DataColumn("", GetType(String)))
            Next
        Catch ex As Exception
            MsgBox("Error loading columns: " & ex.Message)
        End Try

        Try
            Dim row = dt.NewRow()
            'create column and rows
            'row.AcceptChanges()
            For rCnt = 1 To Range.Rows.Count
                For cCnt = 1 To Range.Columns.Count
                    Obj = CType(Range.Cells(rCnt, cCnt), Excel.Range)
                    TbTablename.Text = Obj.VALUE
                    row.Item(cCnt - 1) = TbTablename.Text
                Next
                dt.Rows.Add(row)
            Next
            DataGridView1.DataSource = dt
            MsgBox("Excel loaded")
        Catch ex As Exception
            MsgBox("load Error: " & ex.Message)
        End Try
        'DataGridView1.DataSource = dt
    End Sub