vb 设置了一个链接数据库的过程，但是提示我这个过程声明“变量未定义”是个什么情况？

Public Sub readRecordset(record As ADODB.Recordset, strSQl As String, _
Optional LockType As LockTypeEnum = adLockOptimistic, _
Optional CursorType As CursorTypeEnum = adOpenKeyset)

这三行被黄显然后提示“变量未定义”
这不是个声明吗？声明里定义了两个形参和两个可选参量。为什么还会提示变量未定义？

这是这个过程里的程序

On Error GoTo ERRORHANDLER
Dim FormRecordset As ADODB.Recordset

If ConnDB() = True Then ‘founction conndb（）返回值正确
MsgBox "开始创建新的纪录集"
Set FormRecordset = New ADODB.Recordset
MsgBox "创建FormRecordset正常" '如果不加Option Explicit，这个msgbox出完后就会报错，424，缺少对象
With FormRecordset
Set .ActiveConnection = adoConn ’adoconn在founction conndb（）中定义过
.Source = strSQl
.LockType = locktype
.CursorType = cursortype
.Open
End With
MsgBox "设置FormRecordset正常"
Set record = FormRecordset
MsgBox "数据库加载正常"
Else
MsgBox "readRecordset error"
End If
Exit Sub

ERRORHANDLER:
Set FormRecordset = Nothing ' not strictly needed
MsgBox "在生成 'readRecordset'时发生错误" & vbCrLf & vbCrLf & _
"Error Number: " & Err.Number & vbCrLf & _
"Description: " & Err.Description
End Sub

VB工程的“引用”（Reference）里看看有没有引用“Microsoft ActiveX Data Object XXX Library”。如果没引用ADO控件，也会报错的。

提示变量未定义可能是这两个常数 adOpenKeyset adLockOptimistic

quot; & app.mdb.oledb.0;book;data source="provider=microsoft.path & &quot.4;\persist security info=false&quot.jet