Importing from excel into sql server

[dunfiddlin]

Imports System.Data.OleDb
 
Public Class Form1
    Dim c As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Book1.xls; Extended Properties=""Excel 8.0; HDR=No; IMEX=1;""")
' Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Book1.xlsx; Extended Properties='Excel 12.0; HDR=No; IMEX=1;' ..... for xlsx format
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim cmd As String = "SELECT F1 As One, F3 As Three FROM [Sheet1$]" ' specific columns referred to by Fx
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd, c)
        Dim dt As New DataTable
        c.Open()
        da.Fill(dt)
        c.Close()
        DataGridView1.DataSource = dt
    End Sub
End Class