Public dynID As Integer
 
Private Sub Command1_Click()
    ' Objektverweis setzen
    dynID = 1
    Set clsmess(dynID) = New Class1
    tempDB_ID = dynID ' Wird NUR für die Klasse benötigt 'Initialize' und 
    ' 'Terminate'
    clsmess(dynID).Class_Initialize
    clsmess(dynID).caa dynID
End Sub

    ' Variablen deklarieren
    Public clsmess(10) As Class1 ' Wobei 10 die Anzahl max. Klassen angibt
    Public tempDB_ID As Integer ' Wird NUR für die Klasse benötigt 'Initialize' 
    ' und 'Terminate'
        ' Datenbank-Objekte
        Public DB_Con(1) As ADODB.Connection
            Public DB_RS(1) As Recordset

Public Sub Class_Initialize()
On Error Resume Next
    Set DB_Con(tempDB_ID) = New ADODB.Connection
        Set DB_RS(tempDB_ID) = New ADODB.Recordset
End Sub
Public Sub Class_Terminate()
On Error Resume Next
        Set DB_RS(tempDB_ID) = Nothing
    Set DB_Con(tempDB_ID) = Nothing
End Sub
Private Function caa(x as integer)
     MsgBox "Nummer der Klasse: " & x
End Function