vos decis que lo tenes en una BD.
Supongamos que la cantidad es un campo y el precio otro.
Código:
'creas una variable
Dim ecuacion
'una vez abierta la BD
ecuacion = 1 * rs("precio") / rs("cantidad")
'eso te dara el precio unitario de cada registro que tengas.
Saludos y espero haber ayudado!
PD: el numero 1 al comienzo de la ecuacion es de solo ejemplo, si quisieras otra cantidad solo cambias ese numero.