Dim cmd As New SqlCommandBuilder(da)
        ' den CommandBuilder mit dem DataAdapter Verbinden
        ' die Insert/Update/Delete Commands werden jetzt automatisch erzeugt
        'Updaten des Grids und der Datenbank.
        Try
            conn.Open()
            da.Fill(ds, "tblFormeln")
            With ds.Tables("tblFormeln").Rows(mdlVerschiedenes.intDatensatz)
                .Item(1) = Me.txtFormel.Text
                .Item(2) = Me.txtBezeichnung.Text
                .Item(3) = Me.txtBeschreibung.Text
                .Item(4) = Me.txtVerweis.Text
                .Item(5) = Me.txtReihenfolge.Text
            End With
            da.Update(ds, "tblFormeln")
            'da.UpdateCommand.Connection.Close() 
            'es schliesst der die Connection der sie Öffnet, also nicht das 
            ' Updatecommand!
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        Finally
            conn.Close()
        End Try