Ayuda con rutina de conexion BD de SQL Server...

Buenos días grupo:

He estado probando con rutinas de conexión con Base de Datos SQL Server,
pero no he logrado conectarme. Quiero ver si me puede dar una guía para
poderlo hacer. El problema es que me da un error # 424 en la instrucción
SQL.Request, pero si esto lo ejecuto directamente sobre una celda funciona
bien.

**** Range("E1").Value = "driver=SQL
Server;SERVER=XXX;UID=sa;PWD=;APP=Sistema de XXX;WSID=XXX;DATABASE=XXX"
**** Range("E2").Value = "Select * from tbl_Inventarios"

Function Datos()

nSQLConect = Range("E1").Value
nSqlString = Range("E2").Value

Set Datos = Sql.REQUEST(nSQLConect, , , nSqlString)

End Function

Gracias de Antemano,


Gerardo Mejicano