Sub LoadExcel(ByVal dgvExcel As DataGridView, ByVal SBook As String, ByVal sSheet As String)
Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & SBook & ";" & "Extended Properties=""Excel 8.0;HDR=YES"""
Try
Dim cn As New OleDbConnection(cs) 'Connection String
If Not System.IO.File.Exists(SBook) Then 'Si no encuentra un libro .xls
MsgBox("No se encontró el Libro: " & SBook, MsgBoxStyle.Critical, "Ruta inválida")
Exit Sub
End If
Dim DA As New OleDbDataAdapter("Select * From [" & cbolibro.SelectedItem() & "$]", cs)
Dim DS As New DataSet
DA.Fill(DS) 'Se intenta llenar con "Sheet(sheetNo)$"
dgvExcel.DataSource = DS.Tables(0)
Catch ex As Exception
MessageBox.Show("No se encontró la hoja" & sheetName & "en el libro de excel, por favor verifique los datos", "Error al visualizar el documento", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub