Dim cmd As New SqlCommandBuilder
 
        '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.UpdateCommand = cmd.GetUpdateCommand
            da.Update(ds, "tblFormeln")
            da.UpdateCommand.Connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        Finally
            conn.Close()
        End Try

        Dim cmd As New SqlCommandBuilder
        Dim cmdSelect As New SqlCommand
 
        'Updaten des Grids und der Datenbank.
        Try
            cmdSelect.CommandText = "SELECT * FROM tblFormeln"
            da.SelectCommand = cmdSelect
            da.SelectCommand.Connection = conn
            da.SelectCommand.Connection.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.UpdateCommand = cmd.GetUpdateCommand
            da.Update(ds, "tblFormeln")
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        Finally
            da.SelectCommand.Connection.Close()
        End Try