Dim NazivA as string
NazivA=Rs2!NazArt
NazivA=Naziv_Art(NazivA)