ممنونم از لطفت دوست عزیز
من کدهای شما رو به صورت زیر برای برنامم تغییر دادم و در برنامه قرار دادم
Me.DadeTableAdapter.Fill(Me.ProjectDataSet2.dade)
Me.setandeTableAdapter.Fill(Me.ProjectDataSet2.setande)
WithMe.DataGridView1
For i As Int16 = 1 ToMe.dadeBindingSource.Count
.Columns.Add(New System.Windows.Forms.DataGridViewTextBoxColumn)
.Columns(i).Name = "namedade" & i
.Columns.Item(i).HeaderText = Me.dadeBindingSource.Current.row.itemarray(0)
Me.dadeBindingSource.MoveNext()
Next
For i As Int16 = 0 ToMe.setandeBindingSource.Count - 1
.Rows.Add()
.Rows(i).Cells(0).Value = Me.setandeBindingSource.Current.row.itemarray(1)
Me.setandeBindingSource.MoveNext()
Next
EndWith
ولی وقتی برنامه رو اجرا کردم با خطا مواجه شدم و صفحه مورد نظرم رو باز نکرد
خطایش هم به صورت زیر هست :