Private Sub cmdOK_Click()
   Dim db As DAO.Database
   Dim qdf As DAO.QueryDef
   Dim varItem As Variant
   Dim strCriteria As String
   Dim strSQL As String
   Set db = CurrentDb()
   Set qdf = db.QueryDefs("qryMultiSelect")
   If Me!lstRegions.ItemsSelected.Count > 0 Then
      For Each varItem In Me!lstRegions.ItemsSelected
         strCriteria = strCriteria & "tblData.Region = " & Chr(34) _
                       & Me!lstRegions.ItemData(varItem) & Chr(34) & "OR "
      Next varItem
      strCriteria = Left(strCriteria, Len(strCriteria) - 3)
   Else
      strCriteria = "tblData.Region Like '*'"
   End If
   strSQL = "SELECT * FROM tblData " & _
            "WHERE " & strCriteria & ";"
   qdf.SQL = strSQL
   DoCmd.OpenQuery "qryMultiSelect"
   Set db = Nothing
   Set qdf = Nothing
End Sub