Imagen en ListView

[seinkraft]

Hola, eh estado mirando algunos codigos para poder ubicar un icono en una de las coumnas pero no lo logro hacer.
El icono deberia ir en donde esta el codigo comentado.

encontre un tutorial pero no puedo fusionarlo con mi codigo.
http://msdn.microsoft.com/en-us/libr...imagelist.aspx

Este es mi codigo actual:

Código PHP:

  Public Function FillEditListBox(ByVal queryAs String)
 
        lstEditDatabase.Items.Clear()
 
        Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        OleDbConn.Open()
 
        Dim MyDataReader As OleDbDataReader
 
        Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()
 
        Dim MyDataSet As DataSet = New DataSet()
 
        Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()
 
        MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn)
 
        MyOleDataAdapter.Fill(MyDataSet)
 
        MyOleDbCommand.Connection = (OleDbConn)
 
        MyOleDbCommand.CommandText = query
 
        MyDataReader = MyOleDbCommand.ExecuteReader
 
        Do While MyDataReader.Read
 
            Dim MyItem = lstEditDatabase.Items.Add(MyDataReader("id".ToString))
            With MyItem
                //.SubItems.Add(MyDataReader("ext".ToString))
                .SubItems.Add(MyDataReader("hash".ToString))
                .SubItems.Add(MyDataReader("ext".ToString))
                .SubItems.Add(MyDataReader("author".ToString))
                .SubItems.Add(MyDataReader("source".ToString))
                .SubItems.Add(MyDataReader("tags".ToString))
            End With
 
        Loop
        MyDataReader.Close()
 
        OleDbConn.Close()
        OleDbConn.Dispose()
 
        lblStatusAction.Text = "Database loaded"
        Return False
    End Function 
   

Ayuda por favor