anyone can help me? Im new to Vb.

----------------------------------
Private Sub LoadTransaction()
Dim lv As ListItem
Me.lsttransaction.ListItems.clear
With Me.adoTransaction.Recordset
.MoveFirst
While Not .EOF
Set lv = Me.lsttransaction.ListItems.add(, , !invoicenumber, , "px")
lv.SubItems(1) = !TotalAmount
lv.SubItems(2) = !AmountTendered
lv.SubItems(3) = !Date
.MoveNext
Wend
End With
Me.adoTransaction.Refresh
end sub
----------------------------------

thanks in advance

Make sure that you've been declared adoTransaction :

Set adoTransaction = New ADODB.Recordset
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.