Me.Button6.TabIndex = 9
        Me.Button6.Text = ">|"
        Me.Button7.Location = New System.Drawing.Point(264, 240)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(88, 32)
        Me.Button7.TabIndex = 5
        Me.Button7.Text = "Neu"
        Me.Button8.Location = New System.Drawing.Point(448, 240)
        Me.Button8.Name = "Button8"
        Me.Button8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Button8.Size = New System.Drawing.Size(80, 32)
        Me.Button8.TabIndex = 0
        Me.Button8.Text = "Entfernen"
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(536, 317)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.txtVorname)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.txtZuname)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.Button8)
        Me.Name = "Form1"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
    End Sub
    Dim objDataSet As DataSet
    Dim objDataTable As DataTable
    Dim objDataView As DataView
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objConn As OleDb.OleDbConnection
    Dim objCB As OleDb.OleDbCommandBuilder
    Const sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data" & _
      "Source=Mitarbeiter.mdb;Mode=ReadWrite"