Muchas Gracias Cabezota....
Por fin logre la conexión a través de OLE...
Tambien quiero agradecer a todos los que me ayudaron poco a poco logramos encontrar solución aqui les coloco el codigo definitivo....
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB; SERVER=servidor; UID=usuario;PWD=clave;DATABASE=BD; INITIAL CATALOG=BD"
Uala....
