Sub DodajPolje(tabNaziv As String)
    Dim db As dao.Database
    Dim tbl As dao.TableDef
    Dim fld As dao.Field
    Dim prp As dao.Property
    
    Set db = CurrentDb()
    Set tbl = db.TableDefs(tabNaziv)
    Set fld = New dao.Field
    With fld
        .Name = "UbaciRadnika"
        .type = dbBoolean
    End With
    tbl.Fields.Append fld
    
    Set prp = fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))
    fld.Properties.Append prp
     fld.OrdinalPosition = 0 '' ovo mi je falilo al kad ubacim csv ili xlsx stavlja mi ga na drugo mjesto ?? 
    Set prp = Nothing
    Set fld = Nothing
    Set tbl = Nothing
    db.Close
    Set db = Nothing
End Sub