vb中子程序或函数未定义

引用数据库进行编译，出现问题。
补充：代码如下：
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 出现蓝色

弹出的警告窗口说：用户定义的类

vb子程序或函数未定义 哪位VB高手帮我看下，我程序错哪了？说我子程序或函数未定义 VB中子程序,函数,用户定义类型在哪儿定义? 子过程或函数未定义 VB为何总提示“函数未定义”？晕S vb 中 Adodc1未定义 VB子程序未定义错误 vb hour 未定义 VB用户定义类型未定义 vb为什么会变量未定义