Dim myColumn As ADOX.Column = New ADOX.Column
            With myColumn
                .Name = "LfdNr"
                .Type = adInteger
                .Properties("Autoincrement").Value = True      'automatische 
                ' Wertvergabe aktivieren
                .Properties("Autoincrementseed").Value = 1      'Startwert
                .Properties("Autoincrementstep").Value = 1     'Schrittweite
            End With