vb中子程序或函数未定义

Question

引用数据库进行编译，出现问题。
补充：代码如下：
Private Sub Form_Load()
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Cn.Provider = "microsoft.jet.oledb.4.0"
Cn.ConnectionString = App.Path + "/DataBase/Belt.mdb"
Cn.Open

'这里我使用DAO控件查询额定功率
Set db = OpenDatabase(App.Path & "\DataBase\belt.mdb") '打开带轮数据库
'打开数据库
sql1 = "select * from V型带额定功率" '打开表
Set Rst = db.OpenRecordset(sql1)
Rst.MoveFirst '移动到表中的第一条记录
Do While Not Rst.EOF
'判断特定带型加小轮直径加小轮转速决定的额定功率P0于程序中查询工况系数Ka使用的方法完全一样。不同的是表中不同的字段。
If Rst.Fields("型号") = PulleyKind And Rst.Fields("小轮直径") = DMin And Rst.Fields("小轮转速") <= VMin Then
P0 = Format(Rst.Fields("额定功率"), "0.00")
End If

End Sub

运行后，Private Sub Form_Load() 出现黄色， New ADODB.Connection 出现蓝色

弹出的警告窗口说：用户定义的类型未定义
我的QQ：469308228，希望能遇到VB高手，能帮我解疑！ 谢谢！

Answer 1

是“用户定义类型未定义”还是你说的vb中“子程序或函数未定义”，前者会出现，你说的“运行后，Private Sub Form_Load() 出现黄色， New ADODB.Connection 出现蓝色”，后者应该只会出现“黄色标注”

Answer 2

肯定是相关控件没引用

Answer 3

没有添加ADO引用，在【工程】-【引用】中添加即可