With cmbWarengruppenFilter
            .Update()
            .DataSource = oMisc.dtPfrofile
            .DisplayMember = "ProfilName"
            .ValueMember = oMisc.dtPfrofile.Columns(0).ToString
            .SelectedIndex = 0
            .EndUpdate()
        End With

 Dim oMisc As New CMisc
 
        Try
            conn.Open()
            myTrans = conn.BeginTransaction ' Öffnen
            da.Update(ds, ds.Tables(0).TableName)
        Catch ex As SQLiteException
            MsgBox(ex.Message)
            myTrans.Rollback() ' Verwerfen
        Catch ex As Exception
            MsgBox(ex.Message)
            myTrans.Rollback() ' Verwerfen
        Finally
            myTrans.Commit() ' Alle änderungen annehmen!
            conn.Close()
            oMisc.dtPfrofile = ds.Tables(0)
            _myForm.cmbWarengruppenFilter.Update()
            _myForm.cmbWarengruppenFilter.DisplayMember = "ProfilName"
            _myForm.cmbWarengruppenFilter.ValueMember = _
              oMisc.dtPfrofile.Columns(0).ToString
            _myForm.cmbWarengruppenFilter.DataSource = ds.Tables(0)
            _myForm.cmbWarengruppenFilter.SelectedIndex = 0
            _myForm.cmbWarengruppenFilter.EndUpdate()
        End Try
 
        Me.Close()