Dim DSData As New DataSet
DSData.DataSetName = "DataSetData" + CStr(ID)
Dim SQLData As String = "SELECT * FROM ..."
Dim SqlCommand1 As New SqlClient.SqlCommand(SQLData, SQLConn)
Dim DAData As New SqlClient.SqlDataAdapter
DAData.SelectCommand = SqlCommand1
DAData.Fill(DSData, CStr(ID))
Dim BSData As New BindingSource
BSData.DataSource = DSData
BSData.DataMember = CStr(ID)
DGWData.DataSource = BSData

Dim DGWD As DataGridView
Dim ID As String = Replace(sender.Name, "DataGridViewHEADER", "")
Dim Obj As Object = sender.parent
For Each ctrl As Control In Obj.Controls
  If ctrl.Name = "DataGridViewDATA" + ID Then
      DGWD = DirectCast(ctrl, DataGridView)
  End If
Next

Me.components.Add(BSData, "BindingSource" + CStr(ID))