Можно ли программировать ODBC соединение без DSN - VB

Формулировка задачи:

Нельзя ли присоединении к различными источниками данных через ODBC не использовать DSN - хлопотно бегать по всем машинам и настраивать пользователям их DSN'ы . А единый для всей сети файловый DSN не хочет привязывать таблицы из других баз к Access.

Решение задачи: «Можно ли программировать ODBC соединение без DSN»

textual
                            Листинг программы 
                        
                                 Set Conn = CreateObject("ADODB.Connection")
 
     Set RS = CreateObject("ADODB.Recordset")
 
     DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
     DSNName = DSNName & HomeDir$ & "\test_base.mdb"
 
     Conn.Open DSNName
 
     '::: Сколько записей в таблице
 
     SQL="SELECT count(*) from tbl1"
 
     RS.Open SQL, Conn, 3, 3
 
     msgbox "В таблице записей: " & Cstr(Rs(0))
 
     Rs.Close
 
     '::: Сколько групп ???
 
     SQL="SELECT Name,O,count(R) From tbl1 group by Name,O Order by Name,O"
 
     RS.Open SQL, Conn, 3, 3
 
     Do While not RS.EOF
 
        txt=Cstr(Rs(0)) & " " & cstr(Rs(1)) & " " & Cstr(Rs(2))
 
        MsgBox Txt
 
        Rs.MoveNext
 
     Loop  
 
     Rs.Close