Predmet:Dodavanje polja u tabelu

---

Imam import u bazu podataka (dbf,xml,csv,xlsx etc..)
Da si pojednostavim "unos" kreiram si tabelu DjelatTemp

DoCmd.DeleteObject acTable, "DjelatTemp"
' Brišem staru
CurrentDb.TableDefs("ImortTabla").Name = "DjelatTemp
" 'Preimenujem
DoCmd.RunSQL ("ALTER TABLE DjelatTemp ADD COLUMN [UbaciRadnika] YesNo")
'Ubacujem polje da se zabilježi koji če se ubacivati

ALTER TABLE mi postavi polje ali u nije dobar format pa onda puštam kod

With DBEngine(0)(0).TableDefs("DjelatTemp").Fields("UbaciRadnika")
.Properties.Append .CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))
End With

1.Nekad mi ga odradi a nekad ne u čemu je problem ?
2.Kako mogu Fields("UbaciRadnika") poslati na prvo mjesto u tabeli ?