نقل البيانات من الdatagrid الى مجموعة من الtextbox

كود :
Imports System.Data

Imports System.Data.OleDb

Public Class Form1

        Dim main As New Mainform

        Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\data1.mdb"

        Dim newconnection As New OleDbConnection(Connectionstring)

        Dim DataSet1 As New DataSet

        Dim SQLstr As String

        Dim m As String

        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)

        Public Sub GeneralSearch()

                If RadioButton1.Checked = True Then

                        SQLstr = "SELECT * FROM TableA WHERE الاسم LIKE '%" & TextBox1.Text & "%'"

                End If

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

                Static m As Integer = 0

                If TextBox1.Text = Trim("") Then

                        Exit Sub

                ElseIf RadioButton7.Checked = True Then

                        ExactSearch()

                ElseIf RadioButton6.Checked = True Then

                        GeneralSearch()

                End If

                newconnection.Open()

                Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)

                DataAdapter1.Fill(DataSet1, "TableA")

                Me.BindingContext(DataSet1, "TableA").Position += 0

                TextBox2.DataBindings.Add("Text", DataSet1, "TableA.الاسم")

                Me.BindingContext(DataSet1, "TableA").Position += 1

                TextBox7.DataBindings.Add("Text", DataSet1, "TableA.الاسم")

                Me.BindingContext(DataSet1, "TableA").Position += 1

                TextBox8.DataBindings.Add("Text", DataSet1, "TableA.الاسم")

                TextBox3.DataBindings.Add("Text", DataSet1, "TableA.العمر")

                TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الجنس")

                TextBox5.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")

                TextBox6.DataBindings.Add("Text", DataSet1, "TableA.العنوان")

                DataGridView1.DataSource = DataSet1

                DataGridView1.DataMember = "TableA"

                DataGridView1.AllowDrop = True

                Button1.Enabled = False

                If Me.BindingContext(DataSet1, "TableA").Count = 0 Then

                        MsgBox("No Result, Please Try Again ")

                        Exit Sub

                End If



        End Sub

        Public Sub ExactSearch()

                If RadioButton1.Checked = True Then

                        SQLstr = "SELECT * FROM TableA WHERE الاسم = '" & TextBox1.Text & "'"

                End If

        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

                Me.Close()

                main.Show()

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

                TextBox2.DataBindings.Clear()

                TextBox3.DataBindings.Clear()

                TextBox4.DataBindings.Clear()

                TextBox5.DataBindings.Clear()

                TextBox6.DataBindings.Clear()

                TextBox2.Text = ""

                TextBox3.Text = ""

                TextBox4.Text = ""

                TextBox5.Text = ""

                TextBox6.Text = ""

                Button1.Enabled = True

                SQLstr = ""

                DataSet1.Clear()

                Me.DataGridView1.DataSource = Nothing

        End Sub

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

                RadioButton1.Checked = True

                RadioButton6.Checked = True

        End Sub

        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

                Dim Obj1 As Object

                Obj1 = CreateObject("powerpoint.application")

                Obj1.Visible = True

                Obj1.Presentations.Open(FileName:="H:\تعديل\أ\أبارك الرب في كل حين.ppt")

        End Sub

End Class