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