VBA设计活动查询系统，查询项目有：活动名称、主办单位、活动地点、活动日期、类别，代码和用户窗口是怎么样的？

首先，我们需要设计一个数据表来存储活动信息，表的结构如下：

| 活动ID | 活动名称 | 主办单位 | 活动地点 | 活动日期 | 类别 |

接下来，我们可以使用 VBA 编写一个用户窗口，用户可以在窗口中输入查询条件来搜索活动信息。窗口包括以下元素：

1. 活动名称输入框
2. 主办单位输入框
3. 活动地点输入框
4. 活动日期选择器
5. 类别下拉菜单
6. 查询按钮

当用户点击查询按钮时，VBA 代码会根据用户输入的查询条件来从数据表中检索符合条件的活动信息，并将结果显示在窗口中。以下是示例代码：

Sub SearchActivities()
    Dim searchName As String
    Dim searchHost As String
    Dim searchLocation As String
    Dim searchDate As Date
    Dim searchCategory As String
    
    ' 获取用户输入的查询条件
    searchName = UserForm1.txtName.Value
    searchHost = UserForm1.txtHost.Value
    searchLocation = UserForm1.txtLocation.Value
    searchDate = UserForm1.dtpDate.Value
    searchCategory = UserForm1.cboCategory.Value
    
    ' 构造 SQL 查询语句
    Dim strSQL As String
    strSQL = "SELECT * FROM Activities WHERE 1=1"
    
    If searchName <> "" Then
        strSQL = strSQL & " AND 活动名称 like '%" & searchName & "%'"
    End If
    
    If searchHost <> "" Then
        strSQL = strSQL & " AND 主办单位 like '%" & searchHost & "%'"
    End If
    
    If searchLocation <> "" Then
        strSQL = strSQL & " AND 活动地点 like '%" & searchLocation & "%'"
    End If
    
    If searchDate <> "" Then
        strSQL = strSQL & " AND 活动日期 = #" & searchDate & "#"
    End If
    
    If searchCategory <> "" Then
        strSQL = strSQL & " AND 类别 = '" & searchCategory & "'"
    End If
    
    ' 执行查询并显示结果
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    UserForm1.lstResult.Clear
    
    While Not rs.EOF
        UserForm1.lstResult.AddItem rs!活动名称
        rs.MoveNext
    Wend
    
    rs.Close
    Set rs = Nothing
End Sub

以上代码假设我们的窗口名称是 UserForm1，查询按钮的 Click 事件关联了 SearchActivities 子过程。注意，这里使用了 SQL 查询语句来检索数据表中的数据，因此需要确保在 VBA 中已经打开了正确的数据库文件。