Dim query =
            From dr1 As DataRow In t1.Rows.Cast(Of DataRow)()
            Join dr2 As DataRow In t2.Rows.Cast(Of DataRow)()
                On dr1("col1") Equals dr2("col1") And
                dr1("col2") Equals dr2("col2")
            Select id1 = dr1("id"), id2 = dr2("id")

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist