'----------------------------------- Anlage der Datenbank (MAnteldatei in 
' Accessformat)
Public Function Database_Create(ByVal sDatenbank As String) As Boolean
    On Error GoTo errorhandle
    Set DB = New ADOX.Catalog
    dHandle = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source =" & sDatenbank & ";"
    DB.Create dHandle
    Database_Create = True
    Exit Function
errorhandle:
    Call FehlerSchreiben("Anlage Datenbank", Error$, Err)
End Function

'----------------------------------- Anlage der Tabelle Gruppen
Public Function create_TableGruppen() As Boolean
    On Error GoTo errorhandle
    Call VerDataCN(CStr(mdiAdminOrg.comNewEvent.FileName))
    VerCN.Execute "CREATE TABLE tblGruppen"
    VerCN.Execute "ALTER TABLE tblGruppen ADD Gruppe_ID single Primary Key"
    VerCN.Execute "ALTER TABLE tblGruppen ADD Gruppe_Name varchar(20) "
    VerCN.Close
    create_TableGruppen = True
    Exit Function
errorhandle:
    Call FehlerSchreiben("Anlage tblGruppen", Error$, Err)
End Function
'----------------------------------- Anlage der Tabelle Kassen
Public Function create_TableKassen() As Boolean
    On Error GoTo errorhandle
    Call VerDataCN(CStr(mdiAdminOrg.comNewEvent.FileName))
    VerCN.Execute "CREATE TABLE tblKasse"
    VerCN.Execute "ALTER TABLE tblKasse ADD Kasse_ID single Primary Key"
    VerCN.Execute "ALTER TABLE tblKasse ADD Kasse_Name varchar(50) "
    VerCN.Execute "ALTER TABLE tblKasse ADD Kasse_Gruppe single"
    VerCN.Close
    create_TableKassen = True
    Exit Function
errorhandle:
    Call FehlerSchreiben("Anlage tblKassen", Error$, Err)
End Function
'----------------------------------- Anlage der Tabelle Change
Public Function create_TableChange() As Boolean
    On Error GoTo errorhandle
    Call VerDataCN(CStr(mdiAdminOrg.comNewEvent.FileName))
    VerCN.Execute "CREATE TABLE tblChange"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_ID single Primary Key"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_Kasse single"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_C10 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_C20 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_C50 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_E1 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_E2 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_E10 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_E20 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_E50 integer integer"
    VerCN.Execute "ALTER TABLE tblChange ADD Change_E100 integer integer"
    VerCN.Close
    create_TableChange = True
    Exit Function
errorhandle:
    Call FehlerSchreiben("Anlage tblChange", Error$, Err)
End Function

Public Function Beziehungen_Create() As Boolean
    On Error GoTo errorhandle
        DB.Tables.Refresh
        Table.Columns.Refresh
        With Relation
            .Name = "Bez1"
            .Type = adKeyForeign
            .RelatedTable = "tblGruppen"
            .Columns.Append ("Gruppe_ID")
            .Columns("Gruppe_ID").RelatedColumn = "Kasse_Gruppe"
            .UpdateRule = adRICascade
            .DeleteRule = adRICascade
        End With
        DB.Tables("tblKasse").Keys.Append Relation
    Exit Function
errorhandle:
    Call FehlerSchreiben("Anlage Datenbank", Error$, Err)
End Function