How to add image/icon to a listview

[Kananelo]

Goodday folks!

I simply need help, i have a code that loads data from my table into a listview in an access form.

I need to add a SmallImage to the listview.

Thank you.

Option Explicit
 Function FillList(Domain As String, LV As Object) As Boolean
      '==================================================================
      '  Purpose:   to fill a ListView control with data from a table or
      '             query
      '  Arguments: a Domain which is the name of the table or query, and
      '             a ListView control object
      '  Returns:   A Boolean value to indicate if the function was
      '             successful
      '==================================================================
      Dim db As Database, rs As Recordset
      Dim intTotCount As Integer
      Dim intCount1 As Integer, intCount2 As Integer
      Dim colNew As ColumnHeader, NewLine As ListItem
 
      On Error GoTo Err_Man
      ' Clear the ListView control.
      LV.ListItems.Clear
      LV.ColumnHeaders.Clear
      ' Set Variables.
      Set db = CurrentDb
      Set rs = db.OpenRecordset(Domain)
      ' Set Column Headers.
      For intCount1 = 0 To rs.Fields.Count - 1
         Set colNew = LV.ColumnHeaders.Add(, , rs(intCount1).Name)
      Next intCount1
      LV.View = 3    ' Set View property to 'Details'.
      LV.GridLines = True
      LV.FullRowSelect = True
 
 
      ' Set Total Records Counter.
      rs.MoveLast
      intTotCount = rs.RecordCount
      rs.MoveFirst
      ' Loop through recordset and add Items to the control.
      For intCount1 = 1 To intTotCount
         If IsNumeric(rs(0).Value) Then
            Set NewLine = LV.ListItems.Add(, , Str(rs(0).Value))
         Else
            Set NewLine = LV.ListItems.Add(, , Str(rs(0).Value))
         End If
         For intCount2 = 1 To rs.Fields.Count - 1
            NewLine.SubItems(intCount2) = rs(intCount2).Value
         Next intCount2
         rs.MoveNext
      Next intCount1
      Exit Function
Err_Man:
         ' Ignore Error 94 which indicates you passed a NULL value.
         If Err = 94 Then
            Resume Next
         Else
         ' Otherwise display the error message.
            MsgBox "Error: " & Err.Number & Chr(13) & _
               Chr(10) & Err.Description
         End If
End Function

[June7]

Google: vba image in listview

Here is one http://www.vbforums.com/showthread.php?t=530678