Sub DatenbankVerb()
        Dim conStr As String = "Provider=Microsoft.jet.OLEDB.4.0; DATA" & _
          "SOURCE=BackOffice1.mdb"
        ' Connection-Objekt erzeugen:
        Dim conn As New OleDbConnection(conStr)
        ' Ein leeres DataSet-Objekt erzeugen:
        ds = New DataSet()
        ' SQL-Abfrage definieren:
        Dim selStr As String = ("SELECT Max(RechnungNR) as maxRn FROM" & _
          "tblRechnung")
 
        ' DataAdapter-Objekt erzeugen:
        Dim da As New OleDbDataAdapter(selStr, conn)
        ' Datenbankverbindung öffnen und DataSet mit DataAdapter zu füllen:
        Try
            conn.Open()
            da.Fill(ds, "maxRn")
            conn.Close()
            'MessageBox.Show("Verbindung mit BackOffice.mdb erfolgreich!")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 
    Private Sub btnAusgabeRnr_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)    Handles btnAusgabeRnr.Click
 
        Dim dt As DataTable = ds.Tables("maxRn")
        'Testausgabe um wert von tabelle zu haben
        Me.txtAusgabeRnr.DataBindings.Add("Text", ds.Tables(0), ("maxRn"))
 
        'wert wird um eins erhöht
        Dim RnA As Integer = Convert.ToInt32(Me.txtAusgabeRnr.Text + 1)
        Me.txtNeuRn.Text = RnA.ToString
    End Sub