With ds
    For i As Integer = 0 To .Tables("Kunde").Rows.Count - 1
       Dim kunde_row As DataRow = ds.Tables("Kunde").Rows(i)
       Console.WriteLine(kunde_row("Name").ToString)
 
       Dim kfz_rows As DataRow() = _
           kunde_row.GetChildRows(.Relations("KundeKFZ"))
 
       For k As Integer = 0 To kfz_rows.Length - 1
          Dim kfz_row As DataRow = kfz_rows(k)
          Console.WriteLine("---> " & kfz_row("Marke").ToString)
 
          Dim vorg_rows() As DataRow = _
              kfz_row.GetChildRows(.Relations("KFZVorgang"))
 
          For l As Integer = 0 To vorg_rows.Length - 1
              Dim vorg_row As DataRow = vorg_rows(l)
              Console.WriteLine("---> ---> " & vorg_row("Typ").ToString)
          Next l
          Console.WriteLine("")
       Next k
       Console.WriteLine("")
    Next i
End With