Filter a Report based on List Box

[larze]

Could someone please tell me where to add the (") in the following code:

stDocCriteria = stDocCriteria & "[Location] = " & listlocation.Column(0, VarItm) & " OR "

so that the entire code below will filter correctly.

Currently my filter ([Location] = Boston)is incorrect it should be ([Location] = "Boston" )

Thanks in advance for your help.

Here's the entire code:

Private Function GetCriteria() As String

Dim stDocCriteria As String
Dim VarItm As Variant
For Each VarItm In listlocation.ItemsSelected
stDocCriteria = stDocCriteria & "[Location] = " & listlocation.Column(0, VarItm) & " OR "
Next
If stDocCriteria <> "" Then
stDocCriteria = Left(stDocCriteria, Len(stDocCriteria) - 4)
Else
stDocCriteria = "True"
End If
GetCriteria = stDocCriteria
End Function
___________________________________________________________
Private Sub ButtonOpen_Click()
DoCmd.OpenReport "Location", acPreview, , GetCriteria()
End Sub

 

[RoyVidar]

It should probably be ([Location] = 'Boston') - single quotes:

[tt]stDocCriteria = stDocCriteria & "[Location] = '" & listlocation.Column(0, VarItm) & "' OR "[/tt]

Roy-Vidar