Public Class clsdbkey

    Dim KeyTableAdapter As New LPDataSetTableAdapters.key_tabelleTableAdapter
    Dim lpdataset As New LP.LPDataSet
    Public Function Get_NewKey(ByVal Tablename As String) As Integer
        KeyTableAdapter.FillByTablename(lpdataset.key_tabelle, Tablename)
        Dim key_tablerow As LPDataSet.key_tabelleRow
        key_tablerow = lpdataset.key_tabelle.Rows(0)
        key_tablerow.key_wert = key_tablerow.key_wert + 1
        KeyTableAdapter.Update(lpdataset.key_tabelle)
        Return key_tablerow.key_wert

    End Function
End Class