Im having a slight problem adding my subtotals from listbox. The company i have a contract with has me to create a POS system which is my first (Cash Register Program that's better than Walmart"Do it yourself shop")

These are my controls using: lblTotal, lbl SubTotal, txtTax. I can do the tax and total afterwards but being able to scan barcodes listed in my db with prices just keep adding the price from the db to the lblsubtotal without Adding what's being scanned afterwards. Here's my previous code working now(i tried using the other code from here which you'll notice as well:

Dim strCount(1 To 1) As Integer
Dim strTotal As Integer
Dim stritemprice As Double

Dim var1 As Currency
Dim var2 As Currency
Dim var3 As Currency
Dim var4 As Currency
Dim var5 As Currency

var1 = Form1.lblsub.Caption
var2 = Form1.lbltotal
var3 = Form1.txttax
var4 = Form1.List1.ListIndex
var5 = Form1.digibox.DigitDisplay

For curTotal = 1 To stritemprice

Form1.lblsub.Caption = strCount(1) + curTotal

Next curTotal

End Sub

Any scan i do, The "lblItemprice" queries the DB("Price") and returns it's price in the lblItemprice ex $3.00. The lblsub is supposed to add the current total before tax, when i scan again for another product, it replaces the previous price with the currently scanned price "Not Adding"
Please help me. Please respond to APorter101@aol.com

Thank you in advanced