窗体中列表框多选值作为查询参数的代码错误，该如何修改？

Private Sub Command6_Click()
    Dim Str As String
    For i = 0 To Me.Combo0.ListCount - 1
        If Me.Combo0.Selected(i) = True Then
            Str = Str & "'" & Me.Combo0.ItemData(i) & "',"
        End If
    Next
    If Len(Str) > 0 Then
        Str = Left(Str, Len(Str) - 1)
    End If
   
Me.对帐子窗体.Form.RecordSource = "SELECT IIf(Val(产品.客户ID)='24',Left(产品.产品编号,4) & ' ' & 产品.产品名称,产品.产品名称) AS 品名, 产品.单位, Sum(送货单明细.数量) AS 数量之总计, 产品.单价, 送货单.客户ID FROM (客户 RIGHT JOIN 送货单 ON 客户.ID=送货单.客户ID) RIGHT JOIN (产品 RIGHT JOIN 送货单明细 ON 产品.产品id=送货单明细.产品ID) ON 送货单.送货ID=送货单明细.送货ID GROUP BY IIf(Val(产品.客户ID)='24',Left(产品.产品编号,4) & ' ' & 产品.产品名称,产品.产品名称), 产品.单位, 产品.单价, 送货单.客户ID, 送货单.送货日期 HAVING (((送货单.客户ID) In (" & Str & "))) and (送货单.送货日期) Between # " & Forms!对帐!Text2 & " # And # " & Forms!对帐!Text4 & " # ; "
   
    If (Err) Then
        Exit Sub
    End If
End Sub

以上是用列表框多选值作为查询参数的代码，但运行是出现以下错误，请教各大神该如何修改，是不是因为列表框绑定的值是数字型的关系呢？

请指教！