Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.IO
Imports System.Windows.Forms
Imports System.Linq
Imports System.Data.Linq.Mapping
Imports WinApp.nwind
Imports System.Data.SqlClient

Public Class MaiinForm_my
Private Sub MaiinForm_my_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dbPath As String = System.IO.Path.GetFullPath(System.IO.Path.Combine(Application.StartupPath, "..\..\Data\NORTHWIND.MDF"))
        Dim sqlServerInstance As String = ".\SQLEXPRESS"
        Dim connString As String = "AttachDBFileName='" + dbPath + "';Server='" + sqlServerInstance + "';user instance=true;Integrated Security=SSPI;"

        Dim path As String = System.IO.Path.GetFullPath(System.IO.Path.Combine(Application.StartupPath, "..\..\Northwind.xml"))
        MsgBox("16/05/2014 at 12:10")
        Dim mappingSource As XmlMappingSource = XmlMappingSource.FromXml(File.ReadAllText(path))
        Dim db As Northwind = New Northwind(connString, mappingSource)
    End Sub