Imports System.Data.OleDb
 
Public Class frmUsers
 
    Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data" & _
      "Source=C:\Users\Sascha\documents\visual studio" & _
      "2010\Projects\Sample\Datenbanken\Users.accdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
 
    Private Sub frmUsers_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DsUsers.tbl_Users". 
        ' Sie können sie bei Bedarf verschieben oder entfernen.
        Me.Tbl_UsersTableAdapter.Fill(Me.DsUsers.tbl_Users)
        INSERT_Datarow()
    End Sub
 
    Private Sub INSERT_Datarow()
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(objDataAdapter)
 
        Try
            objConnection.Open()
 
 
 
            Dim row As DataRow = objDataSet.Tables("Users").NewRow()
 
            row("Benutzername") = "lala"
            row("Email") = "lala"
 
            objDataSet.Tables("Users").Rows.Add(row)
 
 
            objDataAdapter.Update(objDataSet, "Users")
 
            MessageBox.Show("Neuer Datensatz Username hinzugefügt!", "Neuer" & _
              "Datensatz", MessageBoxButtons.OK, _
               MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
               MessageBoxIcon.Exclamation)
        Finally
            objConnection.Close()
        End Try
 
 
    End Sub
End Class