Public Sub VelikaSlova(Tabela As String)
Dim rst As Recordset
Dim db As DAO.Database

Set db = CurrentDb
Set rst = db.OpenRecordset(Tabela)
rst.MoveFirst
Do
    rst.Edit
    rst("Ime") = UCase(rst("Ime"))
    rst.Update
    rst.MoveNext
Loop Until rst.EOF


rst.Close
Set db = Nothing
Set rst = Nothing

End Sub