Public Sub loadRange( _
           ByVal sFileName As String, _
           ByVal sSheetName As String, _
           ByVal sRange As String, _
           ByVal dv As DataGridView)

        Try
            ' // Comprobar que el archivo Excel existe
            If System.IO.File.Exists(sFileName) Then

                Dim objDataSet As System.Data.DataSet
                Dim objDataAdapter As System.Data.OleDb.OleDbDataAdapter
                ' // Declarar la Cadena de conexión
                Dim sCs As String = "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & sFileName & "; Extended Properties=Excel 8.0;"
                Dim objOleConnection As System.Data.OleDb.OleDbConnection
                objOleConnection = New System.Data.OleDb.OleDbConnection(sCs)

                ' // Declarar la consulta SQL que indica el libro y el rango de la hoja
                Dim sSql As String = "select * from " & "[" & sSheetName & "$" & sRange & "]"
                ' // Obtener los datos
                objDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sSql, objOleConnection)

                ' // Crear DataSet y llenarlo
                objDataSet = New System.Data.DataSet

                objDataAdapter.Fill(objDataSet)
                ' // Cerrar la conexión
                objOleConnection.Close()

                ' // Enlazar DataGrid al Dataset
                With dv
                    .DataSource = objDataSet
                    .DataMember = objDataSet.Tables(0).TableName
                End With
            Else
                MsgBox("No se ha encontrado el archivo: " & sFileName, MsgBoxStyle.Exclamation)
            End If

            Exit Sub
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub