editing dataTable that has dataRelation using Win Forms - vb.net

Question

I cannot get around the dataset exception:
"Cannot have a relationship between tables in different DataSets"
form1 creates a dataset, fills 2 dataTables from dataSource, adds them to the dataSet, then creates the dataRelation.
I then set 1 of the dataTables as a property of form2, then showDialog() to open form2. When I try to edit the rows of the dataTable on form2, I get the dataSet exception.
Anyone know why this is happening?
Thanks!
class form1
private dts as object
Public Property currentDts() As object
Get
Return dts
End Get
Set(ByVal value As Object)
dts = value
End Set
End Property
Private Sub form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
dim ds as dataset = new dataset()
dim ta as new mainDataSetTableAdapters.myTableAdapter
dim tbl as datatable = ta.getData()
tbl.tablename = "foo"
ds.tables.add(tbl)
dim ta2 as new mainDataSetTableAdapters.myTableAdapter2
dim tbl2 as datatable = ta2.getData()
tbl2.tablename = "bar"
ds.tables.add(tbl2)
ds.relations.add(New dataRelation("bazRelation", _
ds.tables("foo").columns("id"), _
ds.tables("bar").columns("id"),false))
dim dv as dataview = new dataView(ds.tables("bar"))
dv.rowFilter = "Parent(bazRelation).id > 0"
datagridView1.dataSource = dv
me.currentDts = ds
End Sub
Private Sub button1_click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles button1.click
dim ds as dataset = me.currentDts
dim qString as string = "ID = 5 OR ID = 6"
form2.objPassedHere = {ds.tables("bar"), qString}
form2.showDialog()
end sub
end class
class form2
private parentDt as dataTable
private params as object
private bs as bindingSource = new bindingSource()
Public Property objPassedHere() As object
Get
Return params
End Get
Set(ByVal value As Object)
params = value
End Set
End Property
Private Sub form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
dim theBarTable as datatable = params(0)
bs.dataSource = theBarTable
bs.filter = params(1)
datagridview1.datasource = bs
end sub
Private Sub textBox1_Leave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles textBox1.leave
dim rowView as dataRowView = bs.current
dim row as datarow = rowView.row
row.item("personName") = textBox1.text
'ERROR: cannot have a relationship between tables in different datasets!!!!!!
end sub
end class