Public Class Form1
    Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection _
                         ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
                           "Data" & _
                           "Source=D:\Programmieren\Datenbanken\Nahrungsmittel" & _
                           "Nahrungsmittel.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
 
        objDataAdapter = New OleDb.OleDbDataAdapter _
        ("SELECT * From Naehrwerte", objConnection)
        objDataAdapter.Fill(objDataSet, "Naehrwerte")
        objDataView = New DataView(objDataSet.Tables("Naehrwerte"))
 
        'Binden von Steuerelementen an die Daten der Acessdatenbank
 
        With Me
            .txtNahrungsmittel.DataBindings.Add("Text", objDataView, _
              "Nahrungsmittel")
            .txtRubrik.DataBindings.Add("Text", objDataView, "Rubrik")
            .txtKcal.DataBindings.Add("Text", objDataView, "Kcal")
            .txtEiweiß.DataBindings.Add("Text", objDataView, "Eiweiß")
            .txtFett.DataBindings.Add("Text", objDataView, "Fett")
            .txtKh.DataBindings.Add("Text", objDataView, "Kh")
        End With
 
    End Sub
 
Private Sub btnErster_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnErster.Click
        Me.BindingContext(Me.objDataView).Position = 0
    End Sub
 
    Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnWeiter.Click
        Me.BindingContext(Me.objDataView).Position += 1
    End Sub
 
    Private Sub btnZurück_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnZurück.Click
        Me.BindingContext(Me.objDataView).Position -= 1
    End Sub
 
'Hier bekomme ich unten beschriebenen Fehler
    Private Sub btnLetzter_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnLetzter.Click
        Me.BindingContext(Me.objDataView).Position = _
        Me.objDataSet.Naehrwerte.Rows.Count - 1
    End Sub
End Class