sSQL = "SELECT * FROM BRIEFE WHERE BRIEFNUMMER='4711'"
dbcmd.CommandText = sSQL
Dim ds As DataSet = New DataSet()
Dim da As FbDataAdapter = New FbDataAdapter(sSQL, dbcon)
 
Dim myDataRelation1 As DataRelation
myDataRelation1 = New DataRelation("TEST", ds.Tables("Briefe").Columns( _
  "BRIEFNUMMER"), ds.Tables("SCHRIFTVERKEHR").Columns("BRIEFNUMMER"))
 
ds.Relations.Add(myDataRelation1)
da.Fill(ds, "Briefe")
DataGridView1.DataMember = "Test"
DataGridView1.DataSource = ds.Tables("Briefe")