loading non delimited text file into access database using VB.net

[mfahmy2008]

I have a text file contains non delimited data

(Each row consists from 16 fields and has a 131 byte)

I used this code to load it's data into datagrid(I have visual basic 2005)

The program work fine

Now I want load this datagrid into access database

I try to define a table adaptor define at the same dataset contains the access table with the same definition of the column of the datagrid of the textfile

and I try to bind the data loading from text file to this new datatable but my problem this file never show to me anydata

Can anybody help me please?

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    DataGridView1.AutoGenerateColumns = True

    Dim TextFieldParse As New FileIO.TextFieldParser("C:\txtFilesFolder\tsticd9.txt")         tfp.TextFieldType = FileIO.FieldType.FixedWidth

    tfp.FieldWidths = New Integer() {6, 7, 29, 1, 10, 6, 7, 9, 9, 13, 15, 3, 4, 9, 2, -1}  

   TextFieldParser.HasFieldsEnclosedInQuotes = False 



    While Not TextFieldParse.EndOfData



        Dim valstring() As String = TextFieldParse.ReadFields

        Dim datarow1 As DataSet1.DataTable1Row 

        datarow1 = DataSet11.DataTable1.NewDataTable1Row                 
          For i As Integer = 0 To valstring.Length - 1

            If valstring (i).Trim.Length > 0 Then

                dr.Item(i) = valstring (i)

            End If



        Next

        DataSet11.DataTable1.AddDataTable1Row(dr)

        End While



    BindingSource1.DataSource = DataSet11

    BindingSource1.DataMember = "DataTable1"



End Sub

End Class