Option Compare Database

Private pVorname    As String
Private pNachname   As String

Public Property Get nachname() As String
    nachname = pNachname
End Property

Public Property Let nachname(ByVal vNewValue As String)
    pNachname = vNewValue
End Property

Public Property Get vorname() As String
    vorname = pVorname
End Property

Public Property Let vorname(ByVal vNewValue As String)
    pVorname = vNewValue
End Property

Public Property Get name() As String
    name = vorname & " " & nachname
End Property