Combobox issue in Access VBA

Question

I am trying to set a combobox's value to the default one, the problem is the data source is from a query that return an integer type , I want my default value to be "*", when I try this :

Private Sub LabelWklstID_DblClick(Cancel As Integer)
Me.WorklistIDSelector.Value = Mid(Me.WorklistIDSelector.DefaultValue, 2, 1)
End Sub

it didn't work getting " Invalid value " error, but when I try an int it works :

Me.WorklistIDSelector.Value = 1

How can I make my combobox accept the "*". Any Help will be appreciated

Edit:

• RowSource= SELECT tWorkList.WorkListID, tWorkList.ProjectID FROM tWorkList GROUP BY tWorkList.WorkListID, tWorkList.ProjectID HAVING (((tWorkList.ProjectID)=[Forms]![fMain]![ProjectID])) ORDER BY tWorkList.WorkListID;
• Bound Column = 1
• Column Widths =2,54cm

Answer 1

select tworklistID as ID, other fields from tworlklist etc UNION select '*" as ID, 0,0,0(dummy blank other fields)