dt2 = DataSet1.Tables("DataTable1")
 dt3 = Datenbank1DataSet2.Tables("Buchungen")
 
 
        For Each dr In dt2.Rows
 
            For Each dr2 In dt3.Rows
 
                If dr2("Platz") = "22" Then
                    dt.Rows.Add(New Object() {dr("Nummer").ToString, dr( _
                      "Typ").ToString})
                End If
 
            Next
        Next