'Stringa di connessione
strCnn = "ODBC;Server=" & szServer(server) & ";DATABASE=" & szDB(DB) & ";UID=" & szUID & ";PWD=" & szPwd(psw) & ";DSN=" & szDsn(dns)

Poi per il recoset devi usare ADODB un cursore locale e le query e il gioco è fatto.