Imports System.Data.OleDb
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "BeraterlokalDataSet1.Berater". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        'Me.BeraterTableAdapter.Fill(Me.BeraterlokalDataSet1.Berater)
        Me.OleDbDataAdapter1.Fill(Me.BeraterlokalDataSet1)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.BeraterBindingSource.MovePrevious()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.BeraterBindingSource.MoveNext()
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button6.Click
        Dim row As DataRow = Me.BeraterlokalDataSet1.Tables(0).NewRow
        row("Name") = "Fischer"
        row("Vorname") = "Fritz"
        row("Geschlecht") = "male"
        Me.BeraterlokalDataSet1.Tables(0).Rows.Add(row)
        Dim cb As New OleDbCommandBuilder(Me.OleDbDataAdapter1)
        MsgBox(Me.OleDbDataAdapter1.InsertCommand.CommandText)
        Me.OleDbDataAdapter1.Update(Me.BeraterlokalDataSet1)
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
End Class