Public Function intdbConnectionOpen(cnObjekt_Name As String, Optional dbType As _
  CLASS_dbType, Optional str_dbName As String, Optional str_dbUser As String, _
    Optional str_dbPassword, Optional str_dbHostname) As Integer
 
Dim adodbConnection As ADODB.Connection
 
    'On Error GoTo ERROR_intdbConnectionOpen
 
    'Prüfen der Muss-Parameter
    If Not cnObjekt_Name = "" Then
        Set adodbConnection = New ADODB.Connection
        adodbConnection.Properties("Name") = cnObjekt_Name
    Else
        GoTo ERROR_intdbConnectionOpen
    End If

adodbConnection.Properties("Name") = cnObjekt_Name