مشكلة في العلاقة .

Dim da1 As New OleDbDataAdapter

Dim da2 As New OleDbDataAdapter

Dim Pays As New BindingSource

Dim Per As New BindingSource

Dim DS As New DataSet

da1 = New OleDbDataAdapter("select * from Payment", Con)

da2 = New OleDbDataAdapter("select * from Person", Con)

da1.Fill(DS, "Payment")

da2.Fill(DS, "Person")

Dim dr As New DataRelation("Pay1", DS.Tables("Person").Columns("Person"), DS.Tables("Paymnet").Columns("Person"))

DS.Relations.Add(dr)

Per.DataSource = DS

Per.DataMember = "Person"

Pays.DataSource = DS

Pays.DataMember = "Pay1"

ConPayDGViewPers.DataSource = Per

ConpayDGViewPay.DataSource = Pays

هذا هو الكود و يطهر لي هذا الخطأ

Object reference not set to an instance of an object.