Dim env1 As rdoEnvironment
Dim con1 As rdoConnection
Dim rdoDriverNoPrompt As rdoParameter
 
strConnect = "DRIVER=ORACLE ODBC DRIVER; UID=USER; TLO=O; PFC=10; " & _
   "CSR=F; MTS=F; FRL=F; RST=T; LOB=T; FDL=10; FRC=10; QTO=T; FEN=T; " & _
   "APA=T; DBA=W; DBQ=Oracle.test.de; SERVER=Oracle.test.de"
 
Set env1 = rdoEngine.rdoCreateEnvironment("ADMIN", "", "")
Set con1 = env1.OpenConnection("", rdoDriverNoPrompt, False, strConnect)
 
strSQL = "Insert Into " & strTable & " (RefNr,Class,Title,Author,Editor) Values(" & _
  "'" & _
        lngRefNr & "','" & _
        intClass & "','" & _
        strTitle & "','" & _
        strAuthor & "')"
con1.Execute strSQL                       
con1.Close