Como usar odbcng en un FILEDSN desde VB

Hola Lista

Como dice el asunto, por si le sirve a alguien

Ya tengo mi archivo prueba.dsn con estos datos
[ODBC]
DRIVER=Mammoth ODBCng beta
DATABASE=prueba
SERVER=10.X.Y.Z
UID=miusuario
PWD=contrasena
PORT=5432
USE_SSL=PREFER
CLIENT_ENCODING=LATIN1
USE_BUFFERING=Y

En VB6:

Private Sub AbrirConexion
Dim miCnt As ADODB.Connection
On Local Error GoTo ErrorLocal
Set miCnt = New ADODB.Connection
miCnt.Open "Provider=MSDASQL;FILEDSN=prueba.dsn;"

Set AbreSincronizador2 = miCnt
'algo que hacer con la conexion
micnt.close
set micnt = nothing
exit sub

¿Porqué con un FILEDNS? Para poder llevar facilmente las
configuraciones a otro equipo y no tener los datos escritos en el
programa.

________________________________________
Lo bueno de vivir un dia mas
es saber que nos queda un dia menos de vida