hi try this

DE.commands("MemExp1").Parameters(0) = Me.Combo1.BoundText