Error (800A004B)

[charlytus]

Sí el componente está registrado. La línea 141 es la siguiente: "hoyHayErroresMantenimientoBD=oPCP.hoyHayErroresMa n tenimientoBD()" y en el método se hace lo siguiente:

Public Function hoyHayErroresMantenimientoBD() As Boolean
Dim rs As ADODB.Recordset
Dim error As Boolean
Set rs = rsHistoricoMantenimientoBD(Date, Date)
If Not rs Is Nothing Then
If rs.EOF Then
error = True
Else
rs.Find ("error>0")
If Not rs.EOF Then
error = True
Else
error = False
End If
End If

Else
error = True
End If
hoyHayErroresMantenimientoBD = error

End Function

Y rsHistoricoMantenimientoBD hace lo siguiente:

Public Function rsHistoricoMantenimientoBD(fechaDesde, fechaHasta) As ADODB.Recordset
Dim strSQL

strSQL = "SELECT YEAR(start_time) anno, MONTH(start_time) mes, DAY(start_time) dia, plan_name, database_name, SUM(duration) AS duracion, SUM(error_number) As error " & _
"From msdb.dbo.sysdbmaintplan_history " & _
"where start_time>=cast('" & fechaDesde & "' as datetime) and start_time<=dateadd(d, 1, cast('" & fechaHasta & "' as datetime)) " & _
"and plan_name<>'BD de CMI' " & _
"GROUP BY YEAR(start_time), MONTH(start_time), DAY(start_time), plan_name, database_name " & _
"ORDER BY YEAR(start_time) desc, MONTH(start_time) desc, DAY(start_time) desc, plan_name, database_name"

Set rsHistoricoMantenimientoBD = objBD.abrirRecordset(strSQL)

End Function

A ver si me sacas de dudas Myakire q estoy todavía atascado...