Mahlzeit Richi,

Du kannst die Connection fehlerfrei öffnen und schließen?

Geh mal zeilenweise via F8 durch und melde dich noch mal.

Sub Main()

    Dim db As Object
    
    
    On Error GoTo FinishErr
    
    
    Set db = CreateObject("ADODB.Connection")
    
    db.Provider = "ORAOLEDB.Oracle"
    db.Open
    db.Close
    

FinishErr:
If Err.Number <> 0 Then
    Debug.Print Err.Number & vbNewLine & Err.Description
End If
    
    
End Sub