Dim nak = New nakl()
Me.datagridview.DataSource = nak.bs_source

Public Class nakl
    Private _detail_nakl_ls As List(Of detail_nakl)
    Private _bs_source As BindingSource

    Public Property detail_nakl_ls() As List(Of detail_nakl)
        Get
            Return _detail_nakl_ls
        End Get
        Set(ByVal value As List(Of detail_nakl))
            _detail_nakl_ls = value
        End Set
    End Property

    Public Property bs_source As BindingSource
        Get
            Return _bs_source
        End Get
        Set(ByVal value As BindingSource)
            _bs_source = value
        End Set
    End Property

	
    Sub New(id As Int32)
' получаем list пользовательских классов 
  Dim ls = New List(Of detail_nakl)
  'заполняем list ls объектами detail_nakl
            Me.detail_nakl_ls = ls
            Me.bs_source.DataSource = Me.detail_nakl_ls
    End Sub

End Class

            Dim BS As New BindingSource()
            BS.DataSource = nak.detail_nakl_ls
            Me.DGW_edit.DataSource = BS