Private ConnectionString As String = "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & Application.StartupPath & "\test.xls;"
 Private Sub ExcelView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        Dim Con As New OdbcConnection(ConnectionString)
        Dim Adapter As New OdbcDataAdapter("SELECT * FROM [Sheet1$]", Con)
        Dim Ds As New DataSet

        Try
            Con.Open()
            Adapter.Fill(Ds, "Sheet1")
        Catch Err As Exception
            MessageBox.Show(Err.ToString())
        Finally
            Con.Close()
        End Try

        grid.DataSource = Ds.Tables("Sheet1")
    End Sub