OPEN EXCEL FILES FROM URL

Try
                Dim excel_connection As OleDbConnection
                Dim dt As DataSet
                Dim cmd As OleDbDataAdapter

                Dim path As String = "C:\\Users\\Robins\\Documents\\Book1.xlsx"

                excel_connection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=Excel 12.0 Xml;")
                cmd = New OleDbDataAdapter("SELECT * FROM [sheet1$]", excel_connection)
                dt = New DataSet
                cmd.Fill(dt)
                dgvData.DataSource = dt.Tables(0)
                dgvData.Columns(0).Width = 250
                dgvData.Columns(1).Width = 180
                dgvData.Columns(2).Width = 100
                dgvData.Columns(3).Width = 200
                'dgvData.Columns(1).DefaultCellStyle.Format = "##0.00"
                excel_connection.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try