'/**
' * erstellt ein Auto-Feld in einer Tabelle
' * @param  String  Tabellenname
' * @param  String  Feldname
' */
Public Sub createIncrementField(ByVal tableName As String, Optional ByVal FieldName As String = "id")
	Dim fld         As field
On Error GoTo Err_Handler

	Set fld = CurrentDb.TableDefs(tableName).CreateField(FieldName, dbLong)
	fld.Attributes = dbAutoIncrField
	Call CurrentDb.TableDefs(tableName).fields.append(fld)

Exit_Handler:
	Set fld = Nothing
	Exit Sub	
Err_Handler:
	msgBox Err.DESCRIPTION
	GoTo Exit_Handler
	Resume
End Sub