Do While Not Tabelle.EOF
    N = "" : V = "": G = ""
    With Tabelle
         If Not IsNull(!Name) Then N= !Name
         If Not IsNull(!Vorname) Then V = !Vorname
         If Not IsNull(!GebDatum) Then G = !GebDatum
         .MoveNext
    End With
    List1.Additem N & " " & V & ", " & G
Loop