Public Class Form1
    Dim bs As New BindingSource
    Private Sub textler()
      TextBox1.DataBindings.Clear()
      TextBox2.DataBindings.Clear()
      TextBox3.DataBindings.Clear()
      TextBox4.DataBindings.Clear()
      TextBox5.DataBindings.Clear()
      TextBox6.DataBindings.Clear()
      TextBox7.DataBindings.Clear()
      TextBox8.DataBindings.Clear()
      TextBox9.DataBindings.Clear()

      TextBox1.DataBindings.Add("text", bs, "ADI")
      TextBox2.DataBindings.Add("text", bs, "SOYADI")
      TextBox3.DataBindings.Add("text", bs, "TCKIMLIK")
      TextBox4.DataBindings.Add("text", bs, "UNVANI")
      TextBox5.DataBindings.Add("text", bs, "SUBESI")
      TextBox6.DataBindings.Add("text", bs, "TARIH")
      TextBox7.DataBindings.Add("text", bs, "SAAT")
      TextBox8.DataBindings.Add("text", bs, "DURUMU")
      TextBox9.DataBindings.Add("text", bs, "BILGISAYAR")
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim baglan As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=Personel.mdb")
      Dim sqlstr As String
      sqlstr = "SELECT * FROM KONTROL"
      Dim adp As New OleDb.OleDbDataAdapter(sqlstr, baglan)
      Dim dset As New DataSet
      adp.Fill(dset)
      bs.DataSource = dset.Tables(0)
      DataGridView1.DataSource = bs
      textler()
      baglan.Close()
    End Sub

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

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

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

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