Dim Cn As New ADODB.Connection
 
    With Cn
        ' Provider zuweisen
        .Provider = "OraOLEDB.Oracle.1"
        ' ConnectionString übergeben
        .Properties("Data Source") = "PROM"
 
        .Properties("User ID") = User
        .Properties("Password") = Pwd
        ' Connection öffnen
        .Open
    End With

odbc = "ODBC;DSN=PROM;UID=" & User & ";PWD=" & Pwd & _
  ";DBQ=DIJ02.firma.DE;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F" & _
  "MTS=F;CSR=F;PFC=10;TLO=0;"

es isch's wies isch