示例代码：

Private Sub cmdSome_Click()
    Dim strWhere As String, varItem As Variant
    '如果没有选择项目,则退出程序
    If Me!lstBname.ItemsSelected.Count = 0 Then Exit Sub
    '选择项目
    For Each varItem In Me!lstBname.ItemsSelected
        strWhere = strWhere & Chr$(34) & Me!lstBname.Column(0, varItem) & Chr$(34) & ","
    Next varItem
        strWhere = Left$(strWhere, Len(strWhere) - 1)
    gstrWhereBook = "[ISBNNumber] IN (" & strWhere & ")"
    '在所打开的窗体中应用筛选条件
    DoCmd.OpenForm FormName:="frmBooks", WhereCondition:=gstrWhereBook
End Sub

示例下载：

点击浏览该文件