Public Function GetDataFromExcel(ByVal FileName As String, _
  ByVal RangeName As String) As System.Data.DataSet
    ' Returns a DataSet containing information from a named range
    ' in the passed Excel worksheet
    Try
        Dim strConn As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & FileName & "; _
                           Extended Properties=Excel 8.0;"
        Dim objConn _
            As New System.Data.OleDb.OleDbConnection(strConn)
        objConn.Open()
        ' Create objects ready to grab data
        Dim objCmd As New System.Data.OleDb.OleDbCommand( _
            "SELECT * FROM " & RangeName, objConn)
        Dim objDA As New System.Data.OleDb.OleDbDataAdapter()
        objDA.SelectCommand = objCmd
        ' Fill DataSet
        Dim objDS As New System.Data.DataSet()
        objDA.Fill(objDS)
        ' Clean up and return DataSet
        objConn.Close()
        Return objDS
    Catch
        ' Possible errors include Excel file already open and
        ' locked, et al.
        Return Nothing
    End Try
End Function    DataGrid1.DataSource = GetDataFromExcel(Application.StartupPath & _
   "\MyTestWorkbook.xls", "SampleNamedRange").Tables(0)