求ACCESS VBA数据库编程代码：在窗体中进入某个字段

求ACCESS VBA数据库编程代码：ACCESS （OFFICE 365家庭版）
在窗体中进入某个字段，出现一个查询向导，我要编写一些代码使查询向导的第二列按照某个值筛选。

Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
SQL = "select * from table where 第二列名=某个筛选值"
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "数据库路径"
rs.Open SQL, cn
While rs.EOF <> True
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields.Item(i).Name & ":" & rs.Fields.Item(i).Value
Next
rs.MoveNext
Wend
cn.Close
Set cn = Nothing
End Sub