VBA入门级问题，因为以前没有接触VBA，帮朋友该东西，请教一个问题：

Question

Private Sub SearchName_Click()
    '定义查询变量
     Dim r As QueryDef
    '定义临时字符串变量
    Dim sql As String
    Set r = CurrentDb.QueryDefs("造价部招投标人员信息查询")
    sql = "SELECT * FROM 招投标人员信息表 where 1=1"
    
    'If IsNull(人员姓名) = False Then
    '    sql = sql + " and 姓名 = """ + 人员姓名 + """ "
    'End If
    ' MsgBox sql
    'r.sql = sql    'Form_招投标人员信息查询编辑窗体.Recordset.Close
    'Set Form_招投标人员信息查询编辑窗体.Recordset = r.OpenRecordsetEnd Sub为什么出现“用户定义类型为定义”
指的是这一行：Dim r As QueryDef请帮忙！！

Answer 1

QueryDef是系统未知的类型，所以报错，除非你先对其进行定义

Answer 2

好像没有QueryDef这个类型
QueryTable成不成
这个CurrentDb是什么呢？

Answer 3

TableDef:表
QueryDef:视图
DAO里边的东西，ADOX里边也有(不过表述不一样)。