Visual Basic - Problema en Conexion!!!

Tengo un problema al hacer ejecutable un programa que se conecta a una maquina que tiene una Base de Datos SQL.

Al ejecutar el programa no manda errores ni ndada por el estilo, incluso se conecta a la Base de Datos e inserta valores que yo le envio en un procedimiento almacenado, todo funciona muy biern, pero a la hora de hacerlo ejecutable me nevia un mensaje de error y no me deja hacerlo ejecutable, las instrucciones que tengo son estas:

public en as rdoEnvironment
public cn as rdoConnection

Private Function conectarse()
On Error Goto no_con
Set en = rdoEngine.rdoEnvironments(0)
with en
.CursorDriver = rdUseOdbc
.LoginTimeout = 1
Set cn = .OpenConmnect(dsname:="",prompt:=rdDriverNoPrompt, & _
connect:=cadena;Options:=rdAsyncEnable)
end with
while cn.StillConnecting
DoEvents
wend
conectarse=0
exit Function
no_con:
conectarse=1

'donde cadena es una variable que lleva el nombre del servidor,la direccion IP,login y password.

Al hacerlo Ejecutable me envia un mensaje de error en la linea que dice:
Set en = rdoEngine.rdoEnvironments(0)
especificamente se coloca en rdoEnvironments(0) mostrandose el error de Permiso Denegado.

Y me urge hacerlo ejecutable para entregarlo a la la persona que se lo hice, y no quisiera entregarle el Codigo de mi programa.

Ayudenme por Favor.

Escribeme a este foro o a mi correo electronico.

Muchas Gracias

DIOS Te Bengida.