保存按钮-变量未定义

平台保存按钮时编译错误：变量未定义

编码如下：

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strWhere      As String
    Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub

    Set cnn = CurrentProject.Connection

    strSQL = "SELECT * FROM [02 产能基础表] WHERE [工厂]=" & SQLText(Me![工厂])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
    End If
    rst![工厂] = Me![工厂]
    rst![产线] = Me![产线]
    rst![物料编码] = Me![物料编码]
    rst![物料描述] = Me![物料描述]
    rst![规] = Me![规]
    rst![格] = Me![格]
    rst![单位] = Me![单位]
    rst![年份] = Me![年份]
    rst![月份] = Me![月份]
    rst![单位小时有效产能] = Me![单位小时有效产能]
    rst![日有效作业时间] = Me![日有效作业时间]
    rst.Update
    rst.Close

    Form_frm02 产能基础.RefreshDataList      '调用子窗体里自定义刷新函数
    MsgBoxEx "保存成功！", vbInformation

    If Me.DataEntry Then
        ClearControlValues Me
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub