Cargar fichero en Commantext

[Lebennin]

Lo siento tio, pero estoy bastante torpe con esto. Nunca he utilizado el Command y no se muy bien como realizarlo.

El primer y segundo paso los tengo mas o menos claro, pero el tercero no consigo que funcione.

Te pongo un ejemplo para ver si puedes ayudarme.


Set objFSO = CreateObject("Scripting.FileSystemObject")


Set objOpenedFile = objFSO.OpenTextFile("ruta\Creacion.sql")
sReadAll = objOpenedFile.ReadAll

Set cmd = CreateObject("adodb.command")
cmd.ActiveConnection = ConnIntranet (conexion que tengo por otro lado)
cmd.CommandText = sReadAll
call cmd.Execute

Set cmd = Nothing

Creo que no debo cargar el texto sino el fichero pero no se como coño hacerlo. Siento ser tan patoso con esto, pero debe ser que hoy no es mi dia... :S