[mr_hso]

قمت بعمل الكود التالي
لكن الكود لا يعمل 
فعندما اقف على صف معين لا يظهر فى ال TextBox

كود :

Imports System.Data.OleDb
Public Class Form1
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db_2050.mdb")
   Dim da As New OleDbDataAdapter()
   Dim dt As New DataTable
   Sub load_data()
       dt.Clear()
       da = New OleDbDataAdapter("select * from banks", con)
       da.Fill(dt)
   End Sub
   Sub save_data()
       Dim save As New OleDbCommandBuilder("select * TO banks", con)
       save.QuoteSuffix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       load_data()
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dt.Rows.Add()
       Dim pos As String = dt.Rows.Count - 1
       dt.Rows(pos).Item(0) = TextBox1.Text
       dt.Rows(pos).Item(1) = TextBox2.Text
       save_data()
       load_data()
   End Sub
(الجزء الذي به المشكلة)
   Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
       Dim pos As String = BindingContext(dt).Position
       TextBox1.Text = dt.Rows(pos).Item(1)
       TextBox2.Text = dt.Rows(pos).Item(2)
   End Sub