Imports System.Data.OleDb
Public Class FrmProjekte
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Dim ds_Projekte As DataSet
    Dim da_Projekte As OleDbDataAdapter
 
    Private Sub FrmProjekte_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Datagrid_laden()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        datagrid_update()
    End Sub
 
    Private Sub Datagrid_laden()
        Dim conn_Projekte As New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Datenbank.mdb")
        Dim sql As String = "SELECT Leistungsart FROM Projekte"
        Dim Cmd_Projekte As New OleDbCommand(sql, conn_Projekte)
        ' Datenbank auslesen
        da_Projekte = New OleDbDataAdapter(Cmd_Projekte.CommandText, _
          conn_Projekte)
        ds_Projekte = New DataSet
        da_Projekte.Fill(ds_Projekte)
        ' Projekte Laden
        Me.DG_Projekte.DataSource = ds_Projekte.Tables(0).DefaultView
    End Sub
 
    Private Sub datagrid_update()
        Dim cb As New OleDb.OleDbCommandBuilder(da_Projekte)
        If ds_Projekte.HasChanges Then
            da_Projekte.InsertCommand = cb.GetInsertCommand
            da_Projekte.UpdateCommand = cb.GetUpdateCommand
            Try
                da_Projekte.Update(ds_Projekte.Tables(0))
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
        End If
    End Sub
End Class