more than 1 in one query criteria

I have a query that takes information from a combo box. Right now that
is a single value. I need a way to inclue multiple values

Here is the query criteria and the function behind it: GetCombo30(33)
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/11586-more-than-1-one-query-criteria.html
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11586

Public Function GetCombo30(ByVal lngID As Long) As Long
On Error Resume Next
Dim lngCombo30 As Long

' You'll need an IsLoaded or equivilent function
If CurrentProject.AllForms("Product_Sales_Monthly").IsLoaded Then
lngCombo30 = Forms!Product_Sales_Monthly!Text42
Else
lngCombo30 = lngID
End If

GetCombo30 = lngCombo30
End Function

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!