'cn  ist eine OleDbConnection
'da  ist ein OleDbDataAdapter
'ds  ist ein DataSet'dgr ist das Datagrid  
da.SelectCommand = New OleDbCommand("Select * " &_
"from tabelle1", cn)
da.Fill(ds, "tabelle1")
Dim Key1(0) As DataColumn
Key1(0) = ds.Tables(0).Columns("key1")
ds.Tables(0).PrimaryKey = Key1
 
da.SelectCommand = New OleDbCommand("Select *  " & _
from tabelle2", cn)"
da.Fill(ds, "tabelle2")
Dim key2(1) As DataColumn
Key2(0) = ds.Tables(1).Columns("key1")
Key2(1) = ds.Tables(1).Columns("key2")
ds.Tables(1).PrimaryKey = key2
 
ReDim Preserve Key2(0)
 
Dim dr As DataRelation = New DataRelation("dr1", Key1, Key2, True)
 
ds.Relations.Add(dr)
 
dgr.DataSource = ds
dgr.DataMember = "tabelle1"