[/code]
Private Sub cmdPopuni_Click()
Dim o As osoba
o.d_rodjenja = 1957
o.ime = "ishab"
o.prezime = "zonic"

Me.txtDatumRodjenja =o.d_rodjenja
Me.txtIme =o.ime
Me.TxtPrezime = o.prezime 
End sub