编驿错误:用户定义类型未定义

ce100818

Public Sub 执行分类帐查询命令()
    '本程序生成分类帐的查询，以msgbox显示查询记录集合
Dim Db As New ADODB.Connection
Dim cmd1 As Command, stringSQL As String
Dim rs1 As Recordset, str1 As String
Dim fldLoop As ADODB.Field, varBalance As Variant
Dim prm1 As ADODB.Parameter, int1 As String
Dim stringInputBox As String, tablDef As ADOX.Table
程序运行到红色处无法运行走,显示"编驿错误:用户定义类型未定义"

请问如何解决,谢谢