Visual Basic

Private Sub lstTargetFiles_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lstTargetFiles.DrawItem
        ' Draw the background of the ListBox control for each item. Create a new Brush and
        ' initialize to a Black colored brush by default.
        e.DrawBackground()
        Dim myBrush As Brush = Brushes.Black

        ' Determine the color of the brush to draw each item based on the index of the item to draw.
        Select Case e.Index
            Case 0
                myBrush = Brushes.Red
            Case 1
                myBrush = Brushes.Orange
            Case 2
                myBrush = Brushes.Purple
        End Select

        ' Draw the current item text based on the current Font and the custom brush settings.
        e.Graphics.DrawString((CType(sender, ListBox)).Items(e.Index).ToString(), e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)

        ' If the ListBox has focus, draw a focus rectangle around the selected item.
        e.DrawFocusRectangle()

    End Sub

<br />
Imports System.Data<br />
Imports System.Data.OleDb<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        Dim MyConn As System.Data.OleDb.OleDbConnection<br />
        Dim DtSet As System.Data.DataSet<br />
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter<br />
<br />
        Try<br />
            MyConn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; Data Source='c:\OrderingFormat.xls'; Extended Properties=Excel 8.0;")<br />
            MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [PO Detail$] ", MyConn)<br />
            MyCommand.TableMappings.Add("Table", "TestTable")<br />
            DtSet = New System.Data.DataSet<br />
            MyCommand.Fill(DtSet)<br />
            DataGridView1.DataSource = DtSet.Tables(0)<br />
            MyConn.Close()<br />
<br />
        Catch ex As Exception<br />
<br />
        End Try<br />
    End Sub<br />