肾病综合症能活多久:VB编程里遇到的问题

我在运行以下代码的时候：
Option Explicit
Dim objRs As ADODB.Recordset

Private Sub cmdCancel_Click()
'请求用户确认是否真的退出系统登录
n = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _
& "是否真的退出？", vbYesNo, "登录验证")
If n = vbYes Then
Unload Me '卸载登录窗体
End If
End Sub
Option Explicit
Dim objRs As ADODB.Recordset

Private Sub cmdCancel_Click()
'请求用户确认是否真的退出系统登录
n = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _
& "是否真的退出？", vbYesNo, "登录验证")
If n = vbYes Then
Unload Me '卸载登录窗体
End If
End Sub
Option Explicit
Dim objRs As ADODB.Recordset

Private Sub cmdCancel_Click()
'请求用户确认是否真的退出系统登录
n = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _
& "是否真的退出？", vbYesNo, "登录验证")
If n = vbYes Then
Unload Me '卸载登录窗体
End If
End Sub

当运行的时候出现了”编译错误，用户定义类型未定义的字样”

objRs As ADODB.Recordset这断代吗用黄色标出了

请问各位朋友，这是什么错误，改怎么解决