Public Sub CreateResultDef()
    Dim td As TableDef, fd As Field
    Set td = New TableDef
    td.Name = "Ergebnisse"
    Set fd = New Field
    With fd
        .Name = "Platz"
        .Type = dbInteger
        .Attributes = dbAutoIncrField
    End With
    td.Fields.Append fd
    Set fd = Nothing
    Set fd = New Field
    With fd
        .Name = "PersonID"
        .Type = dbInteger
    End With
    td.Fields.Append fd
    Set fd = Nothing
    Set fd = New Field
    With fd
        .Name = "WieOft"
        .Type = dbByte
    End With
    td.Fields.Append fd
    DB.TableDefs.Append td
    Set fd = Nothing
    Set td = Nothing
End Sub