Option Compare Database
Option Explicit

Private Art_Ime As String
Private Art_ID As String


Private Sub Class_Initialize()
Art_Ime = "Kisela voda"
Art_ID = "0045"
End Sub
Private Sub Class_Terminate()
Art_Ime = ""
Art_ID = ""
End Sub
Public Property Get Ime_Art() As String
Ime_Art = Art_Ime
End Property

Public Property Let Ime_Art(ART As String)
Art_Ime = ART
End Property

Public Property Get ID_Art() As String
ID_Art = Art_ID
End Property

Public Property Let ID_Art(Id As String)
Art_ID = Id
End Property