List box query, getting error message

[gman via AccessMonster.com]

I am currently trying to run a query using multiple selections in a list box.
When I execute the query I am receiving the error message stating... "You
canceled the previous operation." Below is the code I am using. Any
thoughts?

Private Sub cmd_Run_Item_qry_Click()
On Error GoTo Err_cmd_Run_Item_qry_Click

Dim stDocName As String
Dim strWhere_Division As String
Dim strWhere_Day As String
Dim strWhere_Desc As String

Dim strSQL As String
strWhere_Division = GenerateSQLString(Me.List1)
strWhere_Day = GenerateSQLString(Me.List2)
strWhere_Desc = GenerateSQLString(Me.List3)

strSQL = _
"SELECT [Data by store UPC day].Div, [Data by store UPC day].Store,
[Data by store UPC day].[UPC Desc], [Data by store UPC day].Date, [Data by
store UPC day].Units, [Data by store UPC day].[Gross Sales], [Data by store
UPC day].[Item Mkdn (not sub club)], [Data by store UPC day].[Net Sales]" & _
"FROM (Date2 INNER JOIN ([Division Lookup Table2] INNER JOIN [Data by
store UPC day] ON [Division Lookup Table2].[Div#] = [Data by store UPC day].
Div) ON Date2.Date = [Data by store UPC day].Date) INNER JOIN [Full SKU List]
ON [Data by store UPC day].UPC = [Full SKU List].[Full UPC]" & _
"WHERE (([Division Lookup Table2].[Div#] In (" & strWhere_Division &
")) " & _
"AND ([Date2].[Date] In (" & strWhere_Day & "))" & _
"AND ([Full SKU List].[Full UPC] In (" & strWhere_Desc & ")));"



stDocName = "qry item query"
CurrentDb.QueryDefs("tmp1").sql = strSQL
DoCmd.OpenQuery "tmp1", acViewNormal, acEdit

Exit_cmd_Run_Item_qry_Click:
Exit Sub

Err_cmd_Run_Item_qry_Click:
MsgBox Err.Description
Resume Exit_cmd_Run_Item_qry_Click

End Sub

Thank you,
GMan