mal Verbindung Oracle DB

Sub Daten()
Dim rs
Dim strSQL As String
Dim strSheet As String
Dim strZelle As String
Dim iCols As Integer
Datenbank.DBConnect
strSheet = "Mon"
strZelle = "A2"
strSQL = "SELECT * FROM Tabelle "
Set Datenbank.ArcRecSet = Datenbank.ArcConnection.Execute(strSQL)
With Datenbank.ArcRecSet
For iCols = 0 To .Fields.Count - 1
Cells(1, iCols + 1).Value = .Fields(iCols).Name
Next
Range(Cells(1, 1), Cells(1, .Fields.Count)).Font.Bold = True
Sheets(strSheet).Range(strZelle).CopyFromRecordset Datenbank.ArcRecSet
End With
Datenbank.ArcRecSet.Close
Set Datenbank.ArcRecSet = Nothing
Datenbank.DBClose
End Sub

Option Explicit
Public ArcConnection As New ADODB.Connection
Public ArcRecSet As New Recordset
Public Sub DBConnect()
ArcConnection.Open "ARCH", "aa", "aa", -1
End Sub
Public Sub DBClose()
ArcConnection.Close
Set ArcConnection = Nothing
End Sub