Visual Basic - Error ADO

Hola

Estoy ejecutando una aplicacion en Access via ADP contra un Servidor con SQL Server 2000 al tratar de establecer una conexion con tra el servidor
se produce el siguiente error:

Error al enumerar los Servidores de Datos.

Que produce este error y como corregirlo alguien sabe?

Gracias

Saludos

Set Conexion = New ADODB.Connection

Conexion.ConnectionString = \"Provider=SQLOLEDB;\" & _
\"User ID=sa;\" & _
\"Pwd=;\" & _
\"Initial Catalog=Casa Audisio;\" & _
\"Data Source=(local)\"
Conexion.Open