questo invece un pezzetto di codice per collegare facilmente lo script al database,
codice:
Sub import_elements_orcl()
    Set tdb = CreateObject("ADODB.Connection")
    tdb.connectionstring = "file name=" & UdlFile & "udlDB.udl;"
    tdb.Open
    sqlquery = "......."
    sqlquery = "Select * from stab021 where tab021001='A1' and tab021002=" & sqlquery
    Set rsuserlist = tdb.Execute(sqlquery)
......
il file, che ho chiamato "udlDB.udl" nell'esempio,
lo generi creando un file txt,
rinominandolo in udl,
cliccandolo due volte ti si apre la "connessione" dove inserire i parametri e con tanto di verifica