Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
 
 
    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnPrevious.Click
        Me.BindingContext(DsAuthors1, "authors").Position -= 1
        ShowPosition()
 
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnNext.Click
        Me.BindingContext(DsAuthors1, "authors").Position += 1
        ShowPosition()
 
    End Sub
    Private Sub ShowPosition()
        Dim iCnt As Integer
        Dim iPos As Integer
        iCnt = Me.BindingContext(DsAuthors1, "authors").Count
        If iCnt = 0 Then
            txtPosition.Text = "(No records)"
        Else
            iPos = Me.BindingContext(DsAuthors1, "authors").Position + 1
            txtPosition.Text = iPos.ToString & " of " & iCnt.ToString
        End If
    End Sub
 
 
 
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        SqlDataAdapter1.Fill(DsAuthors1)
        ShowPosition()
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        SqlDataAdapter1.Update(DsAuthors1)
    End Sub
End Class