access根据文本框输入的内容查询

Question

我有一个名单表，现在想要新创建一个文本框和一个按钮，希望在文本框里输入年份，然后点击按钮后可以按照输入的年份进行查询，这是现在的代码：
Private Sub Command13_Click() '导出
Dim db As Database
Dim qdf As QueryDef
Set db = CurrentDb
Set qdf = db.CreateQueryDef("匹配表", "SELECT 姓名身份证号,生效日期 FROM 名单表 where 年度 = " & nd & " ")

DoCmd.OutputTo acOutputQuery, "匹配表", acFormatXLSX, , True

麻烦麻烦帮忙看下该怎么弄

Answer 1

指定默认查找列为年份