Llamar UDL desde codigo

[rositafresita]

hola a todos, mi problema es que quiero poner un contro Adodc en mi aplicación y como ConnectionString quiero poner un archivo UDL pero mediante código y no se como, ya que utilizo la siguiente intrucción
ChDir App.Path para establecer la ruta en donde se ejecuta la aplicación
y luego quiero q tome esta dirección + el nombre del archivo udl pero no funciona, la unica opción que he visto es
App.Path & "\dati.mdb" pero le cambio por el el nombre_archivo.UDL y no hace nada.
Lo que quería poner era
Adodc1.ConnectionString = App.Path & "\nombre_archivo.UDL "
Adodc1.RecordSource = "SELECT * FROM Paciente" y luego mostrar los datos correspondientes en una cuadrículula pero no funciona.
Como puedo establecer la propiedad ConnectionString pero mediante código y haciendo referencia a un archivo UDL utilizando App.Path

De antemano gracias a quien me pueda ayudar

[jc_moty]

Segun lo que explican en esta pagina; la conexion la tendrias que hacer algo asi:

Código:

Dim cnn As ADODB.Connection
' Creamos un nuevo objeto «Connection»
Set cnn = New ADODB.Connection
' Abrimos la conexión llamando al archivo UDL
cnn.Open "File Name=" & App.Path & "\archivo.udl" 

Espero te sirva
Saludos

[rositafresita]

Gracias por la ayuda, si me ha sido muy útil