[Resolvido]Função dá erro depois de converter de 2003 para 2007

Boa tarde amigos

Tenho esta função que na versão 2003 funciona direito, mas converti para 2007 e sublinha a azul a parte que está a vermelho ao fazer o "Debug".
Pergunto:
Se é falta de uma referencia que está em falta .... qual e ela ?

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, não tenho a certeza, mas verifique as referências deve ser
Microsoft ActiveX Data Objects 2.x
Abraço

Assis, é mesmo isso testei e funciona.

Abraço

Obrigado Teixeira

Assis, obrigado pelo retorno, Abraço