Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnSave.Click
        Me.daKfzDatenbank.InsertCommand.Parameters("aMarke").Value() = _
        Me.txtMarke.Text
        Me.daKfzDatenbank.InsertCommand.Parameters("aType").Value() = _
        Me.txtType.Text
        Me.daKfzDatenbank.InsertCommand.Parameters("aMotorisierung").Value() = _
        Me.txtMotor.Text
        Me.daKfzDatenbank.InsertCommand.Parameters("aKennzeichen").Value() = _
        Me.txtKennzeichen
        Me.daKfzDatenbank.InsertCommand.Parameters("aBaujahr").Value() = _
        Me.txtBaujahr.Text
        Me.daKfzDatenbank.InsertCommand.Parameters("aAnschaffungsdatum").Value( _
        ) = Me.txtAnschDatum.Text
        Me.daKfzDatenbank.InsertCommand.Parameters("aKosten").Value() = _
        Me.txtAnschKosten.Text
        Me.daKfzDatenbank.InsertCommand.Parameters("aKilometerstand").Value() = _
        Me.txtKm.Text
 
       Try 
            Me.OleDbConnection1.Open()
            Me.daKfzDatenbank.InsertCommand.ExecuteNonQuery() 
            Me.OleDbConnection1.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Me.DsKfzDatenbank.Clear()
        Me.daKfzDatenbank.Fill(Me.DsKfzDatenbank)
    End Sub