Dim varItem As Variant
Dim strInClause As String

If Me!lstCities.ItemsSelected.Count = 0 Then
	MsgBox("Please select at least one city.")
Else
	strInClause = "[city] IN(" 
	For Each varItem In Me!lstCities.ItemsSelected
		strInClause = strInClause & """" & _
				Me!lstCities.Column(0,varItem) & """" & ", "
	Next varItem
	'Remove the trailing comma and space from the last item
	strInClause=left(strInClause,len(strInClause)-2) & ")"
End If