Combobox Selection populating a Listbox

[Olu Solaru]

I need some help in getting my Combo Box Selection to Populate to my Listbox.
I also need some help in clearing the listbox or removing an item from the
listbox
Here is my current Code - (just for adding to the listbox).

Dim strSQL As String
strSQL = "SELECT DISTINCT ControlNumber FROM tblSopNumbers WHERE
tblSopNumbers.ControlNumber = " & cboControl
lstControlNumbers.RowSource = strSQL

Do I need to declare a public function?

Here is error message: I am getting - The expression After Update you
entered as the event property as the event of setting produced the following
error. A problem occured while Microsoft office access was communicating
with the OLE Server or ACtive X control