Option Strict On
Option Explicit On
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Reflection

Namespace nwind
    Partial Public Class Northwind
        Inherits System.Data.Linq.DataContext

ublic ReadOnly Property ActiveProductsFedarateds() As System.Data.Linq.Table(Of ActiveProductsFedarated)
            '-2 Public ReadOnly Property ActiveProductsFedarateds() As System.Data.DataTable(Of ActiveProductsFedarated)
            '-3 Public ReadOnly Property ActiveProductsFedarateds() As System.Data.SqlTypes.INullable(Of ActiveProductsFedarated)
            '-4 Public ReadOnly Property ActiveProductsFedarateds() As System.Data.TypedTableBase(Of ActiveProductsFedarated)
            Get
                Return Me.GetTable(Of ActiveProductsFedarated)()
            End Get
        End Property

Option Strict On
Option Explicit On

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Reflection

Namespace nwind
  
  Partial Public Class Northwind
    Inherits System.Data.Linq.DataContext
    
   Public Sub New(ByVal connection As String, ByVal mappingSource As System.Data.Linq.Mapping.MappingSource)
      MyBase.New(connection, mappingSource)
      OnCreated
    End Sub
End Class

Imports System
Imports System.IO
Imports System.Collections
Imports System.Collections.Generic
Imports System.Reflection

Public Class ObjectDumper
    Public Shared Sub Write(ByVal o As Object)
        Write(o, 0)
    End Sub
End Class

mports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Linq
Imports nwind  эта строка подчёркнуиа красной чёрточкой
' если курсор навести на "nwind", то подсказка появляется "Namespace nwind"

Namespace Samples
    Public Class Samples

        Public Shared Sub Sample1(ByVal db As Northwind)
            ' Используйте Where() для поиска только соответствующих элементов
            Dim q As IEnumerable(Of Customer) = db.Customers.Where(Function(c) c.City = "London")
            ObjectDumper.Write(q, 0)
        End Sub
End Class