How do I clear the row source of a combobox but leave the value selected
<p>I am relatively new to VBA and am learning on the fly. I am adapting code from another project to fit my needs and am having an issue.</p>

<p>I have a userform that has a combox box that is populated by an advanced filter. I need to use this filter in the next row of data so I am trying to clear the rowsource of the combobox but leave the selected value. </p>

<p>Everything in the ASales1_Change code works as expected. I get a list for that combobox and the second combobox like I want. But I need to clear out the row source from ASales2 in order to add information to the second row</p>

<p>Here is the code I have for the boxes in the first row of the sales order frame of the user form.</p>

<pre><code>Private Sub ASales1_Change()

On Error Resume Next
Sheets("Products").Range("L4").Value = ASales1.Value

'run advanced filter to change productlist named range
Adv

'clear values for product and quantity
For X = 2 To 3
Me.Controls("ASales" &amp; X).Value = ""
Next

'set productlist as rowsource for second control
Me.ASales2.RowSource = "ProductList"


On Error GoTo 0

End Sub


Private Sub ASales3_Change()
On Error Resume Next

Me.ASales2.RowSource = ""

On Error GoTo 0
End Sub
</code></pre>

<p><a href="http://i.stack.imgur.com/SavlM.jpg" rel="nofollow">Image of userform set up</a></p>