Option Compare Database
Option Explicit

Function Probaart()
Dim A As ART

Set A = New ART
MsgBox A.ID_Art & "-" & A.Ime_Art
A.ID_Art = "0001"
A.Ime_Art = "okolada"

MsgBox A.ID_Art & "-" & A.Ime_Art
End Function