Imports System.Data.OleDB

Private dbpath As String = _
   System.IO.Path.Combine(Application.StartupPath, "UserDB.mdb")
Private conn As New OleDbConnection(_
   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath & ";")
Private sql As String = "SELECT * FROM Users;"
Private cmd As New OleDbCommand(sql, conn)
Private da As New OleDbDataAdapter(cmd)
Private ds As New DataSet

Private Sub LOAD_Table()
  Try
     'Verbindung zur Datenbank öffnen
    conn.Open()
     'Inhalte des Dataset zunächst löschen
    ds.Clear()
     'Dataset mit der Tabelle Users füllen
    da.Fill(ds, "Users")
     'Datagrid anbinden
    DataGrid1.SetDataBinding(ds, "Users")
     'Combobox anbinden
    cboUsername.DataSource = ds
    cboUsername.DisplayMember = "Users.Username"
  Catch ex As OleDbException
    MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
        MessageBoxIcon.Exclamation)
  Finally
     'Verbindung zur Datenbank auf jeden Fall wieder schließen
    conn.Close()
  End Try
End Sub

INSERT_DataRow(cboUsername.Text, txtPasswort.Text, txtEmail.Text)
DELETE_DataRow(cboUsername.Text)
UPDATE_DataRow(cboUsername.Text)

Private Sub INSERT_Datarow(ByVal strUser As String, ByVal strPw _
    As String, ByVal strEmail As String)
  Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

  Try
    conn.Open()

     'Im DataSet einen neuen Datensatz hinzufügen
     'Der Tabelle eine neue DataRow hinzufügen
    Dim row As DataRow = ds.Tables("Users").NewRow

     'Werte übergeben
    row("Username") = strUser
    row("Passwort") = strPw
    row("Email") = strEmail
    row("Datum") = DateTime.Now.ToShortDateString

    ds.Tables("Users").Rows.Add(row)

     'Datenbank updaten
    da.Update(ds, "Users")

    MessageBox.Show("Neuer Datensatz Username " & strUser & _
       " hinzugefügt!", "Neuer Datensatz", MessageBoxButtons.OK, _
       MessageBoxIcon.Information)
  Catch ex As OleDbException
    MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
       MessageBoxIcon.Exclamation)
    Finally
    conn.Close()
  End Try

  LOAD_Table()
End Sub

Private Sub DELETE_Datarow(ByVal strUser As String)
  Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

  If MessageBox.Show("Soll der Datensatz Username " & strUser & _
      " wirklich gelöscht werden?", "Löschen?", _
      MessageBoxButtons.YesNo, _
      MessageBoxIcon.Question) = DialogResult.No Then
    Exit Sub
  End If

  Try
    conn.Open()

    Dim row As DataRow
    Dim i As Integer

    Dim dt As DataTable = ds.Tables("Users")
     'alle Zeilen des DataTable durchlaufen
    For Each row In dt.Rows
      If row!Username = strUser Then
        row.Delete()    'DataRow löschen
        i += 1
      End If
    Next

     'Datenbank updaten
    da.Update(ds, "Users")

    If i > 0 Then
      MessageBox.Show("Datensatz(e) " & strUser & _
         " wurde(n) gelöscht!" & vbNewLine & "Anzahl: " & _
         CStr(i), "Gelöscht", _
         MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
      MessageBox.Show("Kein Datensatz Username " & strUser & _
         " vorhanden!", "Nicht vorhanden", _
         MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End If

  Catch ex As OleDbException
    MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
        MessageBoxIcon.Exclamation)
    Finally
    conn.Close()
  End Try

  LOAD_Table()
End Sub

Private Sub UPDATE_Datarow(ByVal strUser As String)

  Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

  If MessageBox.Show("Soll das Passwort / Email im Datensatz " _
      & vbNewLine & "Username: " & strUser & vbNewLine _
      & "wirklich geändert werden?" & vbNewLine & vbNewLine _
      & "Neues Passwort: " & txtPasswort.Text & vbNewLine _
      & "Neue Email: " & txtEmail.Text, _
      "Passwort und/oder Email ändern?", MessageBoxButtons.YesNo, _
      MessageBoxIcon.Question) = DialogResult.No Then
    Exit Sub
  End If

  Try
    conn.Open()

    Dim row As DataRow
    Dim i As Integer
    Dim dt As DataTable = ds.Tables("Users")

     'alle Zeilen des DataTable durchlaufen
    For Each row In dt.Rows
       'Werte in der DataRow überschreiben
      If row!Username = strUser Then
        row!Passwort = txtPasswort.Text
        row!Email = txtEmail.Text
        row!Datum = DateTime.Now.ToShortDateString
        i += 1
      End If
    Next

     'Datenbank updaten
    da.Update(ds, "Users")

    If i > 0 Then
      MessageBox.Show("Datensatz(e) Username " & strUser & _
          " wurde(n) geändert!" & vbNewLine & vbNewLine & _
          "Geändert: Passwort " & txtPasswort.Text & vbNewLine & _
          "Geändert: Email " & txtEmail.Text & vbNewLine & _
          "Anzahl: " & CStr(i), "Update", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
    Else
      MessageBox.Show("Kein Datensatz Username " & strUser & _
          " vorhanden!", "Nicht vorhanden", MessageBoxButtons.OK, _
          MessageBoxIcon.Exclamation)
    End If
  Catch ex As OleDbException
    MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
       MessageBoxIcon.Exclamation)
    Finally
    conn.Close()
  End Try

  LOAD_Table()
End Sub