ASP.NET

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class Formularios_ImportarExcel
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

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

        Dim connString As String = _
            "Provider = Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source = C:\test.xls;" & _
            "Extended Properties = 'Excel 8.0;HDR=Yes'"

        Dim cnn As New OleDbConnection(connString)

        Try
            Dim sql As String = _
                "SELECT * INTO T_Recibos " & _
                "IN ''[ODBC;DRIVER={SQL Server};" & _
                     "Server=localmachine;" & _
                     "Database=NAMEDATABASE;" & _
                     "UID=Sandra;" & _
                     "PWD=Sandra]" & _
                "FROM [Hoja1$]"

            Dim cmd As New OleDbCommand(sql, cnn)

            cnn.Open()

            Dim n As Integer = cmd.ExecuteNonQuery()

            Label1.Text = "Número de registros afectados: " & n.ToString

        Catch ex As OleDbException
            Label1.Text = (ex.Errors(0).Message)

        Catch ex As Exception
            Label1.Text = (ex.Message)

        Finally
            cnn.Close()
            cnn = Nothing

        End Try
    End Sub

"SELECT * INTO T_Recibos " & _                "IN ''[ODBC;DRIVER={SQL Server};" & _                     "Server=localmachine;" & _                     "Database=NAMEDATABASE;" & _                     "UID=Sandra;" & _                     "PWD=Sandra]" & _                "FROM [Hoja1$]"