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