Public Const DBOra As String = "Provider=<Name Provider>;Data" & _
  "Source=<Datenbankname ohne Schema>;user id=<Schema>;password=<Passwort der DB>;"

Option Explicit
 
Public WithEvents Con As ADODB.Connection
Private Com As ADODB.Command
Public Rs As ADODB.Recordset
Private Par As ADODB.Parameter 'Vielleicht nicht von Nöten
 
Function StoredRecordset(Sto As String) 'Mit Recordset
 
On Error GoTo Fehler
 
Con.CursorLocation = adUseClient
Set Com = New ADODB.Command
 
With Com
 
        .ActiveConnection = Con
        .CommandType = adCmdText
         .CommandText = "{ Call " & Sto & " }"
 
    Set Rs = .Execute()
 
End With
 
Exit Function
 
Fehler:
MsgBox Err.Number & " - " & Err.Description
 
End Function
Function StoredExecute(Sto As String) 'Ausführende SQL-Anweiungen(z.B. 
' Delete,Insert,Update)
'Hier executeble
On Error GoTo Fehler
 
Set Com = New ADODB.Command
 
With Com
        .ActiveConnection = Con
        .CommandType = adCmdText
        .CommandText = "{ Call " & Sto & " }"
        .Execute
End With
 
Exit Function
 
Fehler:
MsgBox Err.Number & " - " & Err.Description
 
End Function
 
Private Sub Class_Initialize()
 
If Con Is Nothing Then
    Set Con = New ADODB.Connection
    Con.Open DBOra
End If
 
End Sub
 
Private Sub Class_Terminate()
  On Error Resume Next
     Con.Close
   Set Con = Nothing
  Set Com = Nothing
   Set Rs = Nothing
End Sub

Function <Name Function> ([ benötigten Parameter ])
On Error GoTo Fehler
' Exceptionhandling ist hier nicht geade vorbildlich :o))
 
Set Sto = New claStored
 
    With Sto
        .StoredRecordset "<SP Name auf DB ( [Übergabeparameter wenn benötigt] )"
 
' Hier kann jetzt das RS verarbeitet werden
 
    End With
 
Set Sto = Nothing
 
Exit Function
 
Fehler:
 
MsgBox " Die Datenbank ist zur Zeit nicht erreichbar, bitte den Vorgang später" & _
  "wiederholen!", vbCritical + vbOKOnly, "Hinweis"
Screen.MousePointer = 0
 
Set Sto = Nothing
Exit Function
 
End Function