Was wird Dir hierbei geliefert:

Sub Main()

    Dim rs      As Object
    Dim sSQL    As String
        
    On Error GoTo FinishErr
    
        
    Set rs = CreateObject("ADODB.Recordset")
    sSQL = "SELECT sysdate FROM dual"
    
    rs.Open sSQL, "Provider=ORAOLEDB.Oracle;Database=;User ID=;password="
    rs.Close
    

FinishErr:
If rs.State = 1 Then rs.Close
If Err.Number <> 0 Then
    Debug.Print Err.Number & vbNewLine & Err.Description
End If
    
    
End Sub

Hinweis:

Die Parameter im ConnectionString noch vervollständigen...