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")
   For Each varItem In Me!lstRegions.ItemsSelected
      strCriteria = strCriteria & ",'" & Me!lstRegions.ItemData(varItem) & "'"
   Next varItem
   If Len(strCriteria) = 0 Then
      MsgBox "You did not select anything from the list" _
             , vbExclamation, "Nothing to find!"
      Exit Sub
   End If
   strCriteria = Right(strCriteria, Len(strCriteria) - 1)
   strSQL = "SELECT * FROM tblData " & _
            "WHERE tblData.Region IN(" & strCriteria & ");"
   qdf.SQL = strSQL
   DoCmd.OpenQuery "qryMultiSelect"
   Set db = Nothing
   Set qdf = Nothing
End Sub