Error 429 al dar valor auna conexion ADODB

[Pennywiser]

Buenas, os explico mi problema. VB me da error que el comando Err.Number muestra como 429.

La conexion esta definida de la siguiente manera:

Código:

Dim oCon As New ADODB.Connection
Dim ooCon As New PConexionAFincas.clsConexionAFincas

On Error GoTo fallo:
Set oCon = ooCon.Conexion(cCn)
oCon.Open

cCn son los parametros de la conexión, los cuales están más que comprobados y son correctos, y ooCon es una clase de conexion que funciona absolutamente en todos los casos a excepcion de este.

Justo en el Set oCon es cuando salta el error que me está volviendo loco. ¿Alguna sugerencia?