Si scrivi il file riga per riga e quando arrivi al DBQ scrivi

riga= riga & "DBQ=" & App.path & "\" & NomeMioDataBase

poi dovresti copiarlo nella cartella dove ci sono i file dsn.

Ma perché non usi la connectionstring?
Perche devi fare per forza un dsn?