ورود اطلاعات به دیتاگرید و تعیین Header text

[masoudcarpet]

لطفا راهنمائی کنید چه طوری میتونم اطلاعات یک فایل تکست رو به دیتا گرید وارد کنم به صورتی که سطر اول جدولم جای header text رو نگیره ضمنا باید بگم که فایل متنی از سطر اولش حاوی اطلاعات هست و header توش نیست



Imports System.Data.Odbc

Imports System.Data.OleDb

Public Class Form1

Private selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\;Extended Properties='text;HDR=Yes;FMT=Delimited';")
Private obj_oledb_da As System.Data.OleDb.OleDbDataAdapter

Private filetable As String

Private selectCommandText As String

Private dataSet As New DataSet

Public Function LoadData(ByVal filetable As String) As DataSet

selectCommandText = "select * from [" & filetable & "]"

Try

obj_oledb_da = New OleDbDataAdapter(selectCommandText, selectConnection)
obj_oledb_da.TableMappings.Add(filetable, "DataG")
dataSet = New DataSet()
obj_oledb_da.Fill(dataSet, "DataG")
DG.DataSource = dataSet
DG.DataMember = "DataG"

Catch exception As Exception

MessageBox.Show(exception.Message)
End Try

Return dataSet
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.Filter = "*|*.txt"

OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.SafeFileName
filetable = OpenFileDialog1.SafeFileName
Dim selectConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OpenFileDialog1.FileName & "\;Extended Properties='text;HDR=Yes;FMT=Delimited';")
LoadData(filetable)
End Sub

[masoudcarpet]

لطفا جواب بدین