Public Function svnet(ByVal name As String) As Integer
 
If svPers.EOF Then
 
    MsgBox "Name nicht vorhanden und beenden"
    Return 1
 
 
 
Else
    nr = svPers.Fields("NR")
 
    MsgBox ("Existiert " & nr)
 
 
End If
 
Return 0
 
End Function