Visual Basic - Coneccion Data environment con codigo fuente(por )

Tengo realizado un proyecto que trabaja con data environment
en donde se encuentran todos los procedimientos almacenados(SqlServer),en estos momentos tengo la coneccion echa en la propiedades de la data environment en tengo el Servidor,bd etc
necesito ayuda porfa me pueden ayudar a realizar la coneccion con
Data Environment en codigo fuente, para que al momento de hacer el paquete de alguna manera sea estandar el programa.
vale.....

Al parecer utiliza rutas fijas en la conexiones que utiliza, te recomiendo que haga un ODBC que se conecte a tu base de datos y luego cambie la conexion del DE al ODBC. Espero te funcione.

Prueba con esto:
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
...
cnn.Open "..."
cmd.Name = "yourCommandName"
cmd.ActiveConnection = cnn
...
'El nombre del comando, cualquier parámetro, y un Recordset opcional.
cnn.yourCommandName "parameter", rst

Para ejecutar un procedimiento almacenado, emite una instrucción donde se utilice el nombre del procedimiento almacenado como si fuese un método del objeto Connection, seguido de sus parámetros. ADO realizará una "mejor suposición" de los tipos de parámetros. Por ejemplo:

Dim cnn As New ADODB.Connection
...
'El nombre del procedimiento almacenado y sus parámetros.
cnn.sp_yourStoredProcedureName "parameter"