[abid]

الحمد لله بفضل الله وكرمه
حل المشكلة وهذا هو الكود
وجزاكم الله خيرا الجزاء
OpenFileDialog1.Filter = "all files |*.*| excel files |*.xlsx"
       If OpenFileDialog1.ShowDialog + DialogResult.OK Then
           con = New OleDbConnection("provider=microsoft.ace.oledb.12.0; data source=" + OpenFileDialog1.FileName + "; extended properties=excel 12.0")
           da1 = New OleDbDataAdapter("select * from [1$]", con)
           dt = New DataTable
           da1.Fill(dt)

           DataGridView1.DataSource = dt
           DataGridView1.Columns(0).Visible = True
           DataGridView1.Columns(1).Visible = False
           DataGridView1.Columns(2).HeaderText = "رقم الموظف"
           DataGridView1.Columns(3).HeaderText = "التاريخ"
           DataGridView1.Columns(4).HeaderText = "الحالة"
           DataGridView1.Columns(4).Visible = False
           DataGridView1.Columns(6).Visible = False
           DataGridView1.Columns(7).Visible = False
           DataGridView1.Columns(8).Visible = False

       End If
       Dim i As Integer
       i = DataGridView1.CurrentRow.Index

       Dim line As String = DataGridView1.Item(3, i).Value
       Dim separators() As String = {",", " "}
       Dim name() As String
       Dim lo As String
       Dim x As String
       name = line.Split(separators, StringSplitOptions.RemoveEmptyEntries)

       TextBox1.Text = DataGridView1.Item(3, i).Value
       lo = DataGridView1.Item(3, i).Value
       x = (RSet(lo, 10))

       TextBox3.Text = name(1)
       TextBox4.Text = x.ToString
       Dim colu As New DataGridViewTextBoxColumn
       colu.HeaderText = "SomeText"
       DataGridView1.Columns.Add(colu)
       For Each row In Me.DataGridView1.Rows
           row.Cells(9).Value = x.ToString
       Next row