'/**
' * Setzt den Wert einer AutoNumber Spalte zurück
' * @param  <String>            Name der Tabelle
' * @param  <String>            Name der Auto-Number Spalte
' */
Public Sub resetIncrementField(ByVal iTableName As String, ByVal iColName As String)
	Call CurrentDb.execute("ALTER TABLE [" & iTableName & "] ALTER COLUMN [" & iColName & "] COUNTER(1,1)")
End Sub