[Resolvido]Erro ao fazer debug, depois de convertido para 2007

Boa tarde amigos.

Tenho um formulário com esta função. A base de dados foi criada em 2003, mas convertida para 2007.

Ao fazer debug da erro na linha a vermelho

Pergunto - Qual a referencia que está em falta para access 2007 ?

No 2003 não dá erro....

Obrigado

Function proximoNumero() As String
Dim strSql As String
Dim rstDoc As New ADODB.Recordset
Dim numeroEncontrado As Integer
strSql = "Select producao From producaobloco " & _
"Where (producao Like '" & Format(Date, "YYYY") & "%') " & _
"Order By producao Desc"
rstDoc.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rstDoc.RecordCount > 0 Then
numeroEncontrado = CInt(right(rstDoc("producao"), 4))
Else
numeroEncontrado = 0
End If
proximoNumero = Format(Date, "YYYY") & Format(numeroEncontrado + 1, "0000")
rstDoc.Close
Set rstDoc = Nothing
End Function

Ola Assis,

Veja se a referencia VBA "Microsoft ActiveX Data Objects 2.X Library" está marcada.

Ola;

Resolveu ?

Bom dia JPaulo

A referencia VBA "Microsoft ActiveX Data Objects 2.1 Library" estava activada e anuleia

Acabei de activar a referencia VBA "Microsoft ActiveX Data Objects 2.0 Library" .

E já consegui fazer o Debug.

Obrigado JPaulo