ASP.NET

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Path of file in machine of user
        Label2.Text = System.IO.Path.GetFullPath(FileUpload1.PostedFile.FileName)         
        Dim connString As String = _
            "Provider = Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source = " & "'" & Label2.Text & "';" & _
            "Extended Properties = 'Excel 8.0;HDR=Yes'"
        Dim cnn As New OleDbConnection(connString)
        Try
            Dim sql As String = _
            "INSERT INTO T_Recibos " & _
            "IN ''[ODBC;DRIVER={SQL Server};" & _
                 "Server=Ip_Server;" & _
                 "Database=NameDatabase;" & _
                 "UID=User;" & _
                 "PWD=password]" & _
            "SELECT Id_Comunidad, Id_finca 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
            ' Cerramos la conexión
            cnn.Close()
            cnn = Nothing
        End Try
    End Sub
End Class