Visual Basic - como se hace calcular datos de una bd

quiero hacer una funcion que calcule el importe de una base de datos:
yo hago lo siguiente, al calcular por ejemplo 1cervezas x 10 es igual a 1 pero al agregar otra cerveza deberia ser 20 y me esta guardando 30 alguien podria decirme como resolver este error o darme otra opcion para reaslizar esta funcion
Sub calcular()
DataVentas.Recordset.Index = "Mesa"
DataVentas.Recordset.Seek "=", txtMesa.Text
If Not DataVentas.Recordset.NoMatch Then
totales(search1) = totales(search1) + CCur((DataVentas.Recordset("Cantidad") * DataVentas.Recordset("Precio")))
End If
txtTotal = totales(search1)
End Sub