Private Sub excludebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles excludebtn.Click
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.Filter = "Text File|*.txt|Excel Spreadsheet|*.xls"
        openFileDialog1.Title = "Open File..."
        Dim line() As String
 
        Dim J As Integer = 0
        Dim K As Integer = 0
 
        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
 
            Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(openFileDialog1.FileName)
            line = myStream.ReadToEnd.Split("\S+")
 
            myStream.Close()
            Do While J < line.Count()
                Dim lStringReader As New System.IO.StringReader(line(J))
                TestdbDataSet.ExcludeTable.Rows.Add(lStringReader)
                J = J + 1
            Loop
            TestdbDataSet.ExcludeTable.AcceptChanges()
 
            Dim ex As exclude
            ex = New exclude
            ex.ShowDialog()
            ex.ExcludeTableDataGridView.PerformLayout()
 
 
 
        End If
 
 
    End Sub

Row1Col1;Row1Col2;1003
Row2Col1;Row2Col2;2003
Row3Col1;Row3Col2;3003

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tbl As New DataTable("mytable")
        tbl.Columns.Add("col1", GetType(String))
        tbl.Columns.Add("col2", GetType(String))
        tbl.Columns.Add("col3", GetType(Integer))
        Dim sFilename As String = "C:\TEMP\Dani\DataAccess\somedata.txt"
        Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(sFilename)
        Dim line As String
        Dim aRow As DataRow
        Do
            line = myStream.ReadLine()
            If line Is Nothing Then
                Exit Do
            End If
 
            Dim sAry As String() = Split(line, ";")  ' separate the fields of the current row         
            aRow = tbl.NewRow 'get a DataRow that has the required structure
            aRow(0) = sAry(0)
            aRow(1) = sAry(1)
            aRow(2) = CInt(sAry(2))
            tbl.Rows.Add(aRow)
        Loop
        myStream.Close()
        For Each aRow In tbl.Rows
            Console.WriteLine("{0} {1} {2}", aRow(0), aRow(1), aRow(2))
        Next
 
    End Sub