Moving listview to module help

[Shaolin]

Hi guys

I;m trying to move all my Listview content into a module because I have to call it several times and it becomes annoying having to type it a number of times. I'm a little stuck though. I've managed to move most of the listview code onto a module but I keep getting errors. See the code below:

Public Sub AddItem(lvwListView1 as listview)
ConnectDB
Dim lstNew As ListItem
Set rs = New ADODB.Recordset
    rs.Open "SELECT * From Product Where ProductID like '" & ProductID & "%'", cn, adOpenDynamic, adLockOptimistic
    'add to first column
    Set lstNew = lvwListView1.ListItems.Add(, , rs.Fields("ProductID").Value)
    'add to next column
    lstNew.ListSubItems.Add , , rs.Fields("ProductName").Value
    lstNew.ListSubItems.Add , , Quantity
    lstNew.ListSubItems.Add , , rs.Fields("UnitPrice").Value
    lstNew.ListSubItems.Add , , (rs.Fields("UnitPrice").Value * Val(Quantity))
rs.Close
End Sub

Public Sub ReRunListview(lvwListView as listview)
    Dim i As Long
    Dim lvwItem As ListItem
    For i = 1 To lvwListView1.ListItems.Count
        Set lvwItem = lvwListView.ListItems.Add(, , lvwListView1.ListItems.item(i).Text)
        lvwItem.SubItems(1) = lvwListView1.ListItems(i).SubItems(1)
        lvwItem.SubItems(2) = lvwListView1.ListItems(i).SubItems(2)
        lvwItem.SubItems(3) = lvwListView1.ListItems(i).SubItems(3)
        lvwItem.SubItems(4) = lvwListView1.ListItems(i).SubItems(4)
    Next
End Sub

The AddItem function will get the actual data from the database. Then I will call the ReRunListview function whenever I want to call it from another form.
But, when I run the code, the AddItem function works fine. It's when I get to the 'for statement' in the ReRunListview function I get the following error:

Runtime error 91 - Object variable or With block variable not set.

Any help will be greatly appreciated. :)

[Killer42]

All I can think of is that you must have called it without correctly passing a listview control, or something.