Problema Conectandome a SQLserver....

Hola y Feliz Año Nuevo
estoy conectandome a una base de datos para realizar una copia de una
base
de acces a SQLserver,

Cuando me conecto al server me aparece el siguiente error:

Ad hoc access to OLE DB provider 'Microsoft.Jet.OLEDB.4.0' has been
denied.
You must access this provider through a linked server.

si les sirve de algo adjunto el codigo de conexion.:

Set cnn = New ADODB.Connection
With cnn
.CursorLocation = adUseClient
.Open "driver={SQL Server};server 0.XXX.XX.XXX; database=intranet ;
uid=xxxxxx;pwd=xxxx"
End With

Saludos y Gracias