Подключение к Excel как к БД

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

    Dim tbl As DataTable

    Dim da As New OleDb.OleDbDataAdapter

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fname As String = "C:\1.xls"

        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fName & ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1""")

        cn.Open()

        da.SelectCommand = New OleDb.OleDbCommand("Select [F1] from [Лист3$]", cn)

        tbl = New DataTable

        da.Fill(tbl)

        'DataGridView1.DataSource = tbl

        ListBox1.DisplayMember = "F1"

        ListBox1.DataSource = tbl

    End Sub