Function ImportTablela()
Dim db As Database
Dim DjelatTemp As TableDef

Set db = CurrentDb
db.TableDefs("ImortTabla").Name = "DjelatTemp"
Set DjelatTemp = db.TableDefs("DjelatTemp")
With DjelatTemp
.Fields.Append .CreateField("UbaciRadnika", 1)
End With
DjelatTemp.Fields("UbaciRadnika").OrdinalPosition = 0
End Function