Private Sub FuegeEinZeile(ByVal strUser As String, ByVal strPw _
        As String, ByVal strGruppe As String, ByVal strAbt As String)
 
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
 
        Try
            Dim row As DataRow = ds.Tables("Users").NewRow()
 
            row("Username") = strUser
            row("Passwort") = Funktionen.StringToHash(strPw)
            row("Gruppe") = strGruppe
            row("Abteilung") = strAbt
 
            ds.Tables("Users").Rows.Add(row)
 
            MessageBox.Show("Neuer Datensatz hinzugefügt!" _
                , "Neuer Datensatz", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
                MessageBoxIcon.Exclamation)
        End Try
 
    End Sub