Public Class frmParents
 
    Private myConn As OleDbConnection = New OleDbConnection
    Private daParents As OleDbDataAdapter = Nothing
    Private daSalutation As OleDbDataAdapter = Nothing
    Private ds As DataSet = Nothing
    Private mParentsID As Long = 10
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
 
        ' Load Salutation
        Dim sSQL As String = "SELECT * FROM tblSalutation"
        myConn = New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;_
Data Source=D:\Parents.mdb;")
        daSalutation = New OleDbDataAdapter(sSQL, myConn)
 
        ' übernimmt UpdateCommand, InsertCommand und DeleteCommand für die 
        ' Mastertabelle
        Dim cb As New OleDbCommandBuilder(daParents)
 
        ' Load Parents
        sSQL = "SELECT * FROM tblParents Where ID=" & mParentsID.ToString
        daParents = New OleDbDataAdapter(sSQL, myConn)
 
        ' DataSet füllen
        ds = New DataSet()
        myConn.Open()
        daSalutation.Fill(ds, "Salutation")
        daParents.Fill(ds, "tblParents")
        myConn.Close()
 
        ' Fill ComboBox
        Dim drSalutation As DataRow
        For Each drSalutation In ds.Tables("Salutation").Rows
            cboSalutation.Items.Add(New clsListItem(drSalutation( _
              "Salutation").ToString, drSalutation("ID")))
            If (drSalutation("ID") = 1) Then
                cboSalutation.Text = drSalutation("Salutation").ToString
            End If
        Next
 
        ' Anbinden der Maske an die Mastertabelle
        BindingSourceParents.DataSource = ds.Tables("tblParents")
        Me.cboSalutation.DataBindings.Add("Text", BindingSourceParents, _
          "Salutation")
        Me.txtName.DataBindings.Add("Text", BindingSourceParents, "Name")
        Me.txtFirstName.DataBindings.Add("Text", BindingSourceParents, _
          "FirstName")
        Me.txtStreet.DataBindings.Add("Text", BindingSourceParents, "Street")
        Me.txtPLZ.DataBindings.Add("Text", BindingSourceParents, "PLZ")
        Me.txtCity.DataBindings.Add("Text", BindingSourceParents, "City")
        Me.txtTelefon.DataBindings.Add("Text", BindingSourceParents, "Telefon")
        Me.txtEmail.DataBindings.Add("Text", BindingSourceParents, "Email")
 
        MyBase.OnLoad(e)
    End Sub
 
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdSave.Click
        BindingSourceParents.EndEdit()
        Try
            ' geänderte Masterdaten vom DataSet in die Datenbank übertragen:
            daParents.Update(ds, "tblParents")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class