Private Enum CLASS_dbType
    FILE = 1
    MS_ACCESS_2000 = 2
    MS_ACCESS_2002 = 3
    MS_ACCESS_2003 = 4
    MS_SQLSERVER_2000 = 5
    MYSQL = 6
    CONNECTION_STRING_MANUELL = 7
End Enum
 
'Property Let intSet_and_Get_CLASS_dbType(dbType As CLASS_dbType)    
' 'Schreibender Zugriff auf DB-Type
 
'    intdbType = dbType
 
'End Property
 
'Property Get intSet_and_Get_CLASS_dbType() As CLASS_dbType               
' 'Lesender Zugriff auf DB-Type
 
'    intSet_and_Get_CLASS_dbType = intdbType
 
'End Property