以下是一个简单的示例，演示了如何使用Access VBA根据用户的选择筛选数据：

首先，在Access数据库中创建一个表，表中包含需要筛选的数据。假设表名为"Customers"，包含以下字段：

• CustomerID (自动编号)
• FirstName (文本)
• LastName (文本)
• Email (文本)
• Age (数字)

然后，创建一个表单，包含以下控件：

• 一个文本框，用于输入要筛选的最小年龄
• 一个按钮，用于执行筛选操作

接下来，在表单的代码模块中添加以下代码：

Private Sub cmdFilter_Click()
    Dim minAge As Integer
    Dim strSQL As String
    
    ' 获取用户输入的最小年龄
    minAge = Val(Me.txtMinAge.Value)
    
    ' 构建筛选条件的SQL语句
    strSQL = "SELECT * FROM Customers WHERE Age >= " & minAge
    
    ' 打开一个新的Recordset，仅包含符合筛选条件的数据
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 在消息框中显示筛选结果
    If rs.EOF Then
        MsgBox "没有符合筛选条件的记录。"
    Else
        Dim result As String
        rs.MoveFirst
        Do Until rs.EOF
            result = result & rs!CustomerID & ": " & rs!FirstName & " " & rs!LastName & vbCrLf
            rs.MoveNext
        Loop
        MsgBox "筛选结果：" & vbCrLf & result
    End If
    
    ' 关闭Recordset
    rs.Close
    Set rs = Nothing
End Sub

以上代码会根据用户输入的最小年龄，筛选出符合条件的记录，并在消息框中显示结果。你可以根据自己的需求修改以上代码，添加更多的筛选条件或显示方式。

希望这个示例能够帮助到你！