Dim connectionString As String = "CONNECTION STRING"
        Dim conn As New SqlConnection(connectionString)
        Dim cmdString As String = "SELECT * FROM TABELLE1"
        Dim dataAdapter As New SqlDataAdapter(cmdString, conn)
        Dim ds As New DataSet()
        dataAdapter.Fill(ds, "Tabelle1")
        cmdString = "SELECT * FROM TABELLE2"
        dataAdapter = New SqlDataAdapter(cmdString, conn)
        dataAdapter.Fill(ds, "Tabelle2")
        Dim relation As New DataRelation("Relation", _
                    ds.Tables("Tabelle1").Columns("ID"), _
                    ds.Tables("Tabelle2").Columns("ID") _
                    )
        ds.Relations.Add(relation)
 
        Dim dv As New DataView(ds.Tables("Tabelle2"))
        dgDetails.DataSource = dv