Linq XML Mapping

LinqXMLMapping.vb

Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Linq.Expressions
Imports System.Reflection
Imports System.IO

Public Class LinqMappingRepository(Of T As Class)
    Private _db As DataContext

    Public Sub New(ByVal connectionString As String)
        Using mappingStream As Stream = Assembly.GetExecutingAssembly().GetManifestResourceStream("Namespace.Filename.xml")
            Dim mapping As XmlMappingSource = XmlMappingSource.FromStream(mappingStream)
            _db = New DataContext(connectionString, mapping)
        End Using
    End Sub

    Public Function Find(ByVal expr As Expression(Of Func(Of T, Boolean))) As T
        Return _db.GetTable(Of T).Where(expr)
    End Function

End Class

'<?xml version="1.0" encoding="utf-8" ?>
'<Database Name="DB" xmlns="http://schemas.microsoft.com/linqtosql/mapping/2007">
'    <Table Name="">
'        <Type Name="Namespace.Class">
'            <Column Name="PK" Member="ID" IsDbGenerated="true" IsPrimaryKey="true"/>
'            <Column Name="DateStamp" Member="" IsVersion="true"/>
'            <Column Name="Description" Member="Description"/>
'        </Type>
'    </Table>
'</Database>