Imports System.Net
Imports System.IO
Imports System.Data.SqlClient 
Imports System.Data.Sql
Public Class Form_DGV_sdf

Private Sub Form_DGV_sdf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;Integrated Security=true;")
        ' Не удалось прикрепить базу данных, которой автоматически
        ' было присвоено имя, к файлу D:\2\WinApp\WinApp\Data\NORTHWIND.SDF. 
        ' База данных с таким именем уже существует, указанный файл нельзя
        ' открыть, или он находится на общем ресурсе UNC.

        Dim SqlCom As SqlClient.SqlCommand ' Переменная для Sql запросов
        Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
        Dim DA As SqlClient.SqlDataAdapter ' Адаптер для заполнения таблицы после запроса

        DT.Clear() 'Очищаем таблицу" 
        SqlCom = New SqlClient.SqlCommand("SELECT * FROM [Customers]", Con) ' Указываем строку запроса и привязываем к соединению

        Con.Open() ' Открываем соединение
        ' 02.09.2015 Не удалось прикрепить базу данных, которой автоматически
        ' было присвоено имя, к файлу D:\2\WinApp\WinApp\Data\NORTHWIND.SDF. 
        ' База данных с таким именем уже существует, указанный файл нельзя
        ' открыть, или он находится на общем ресурсе UNC.

        ' Невозможно открыть пользовательскую базу данных по умолчанию. 
        ' Не удалось выполнить вход.
        ' Недопустимый атрибут строки подключения

        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New SqlClient.SqlDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DGV1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединение
    End Sub
End Class