problemas con los numeros decimales

[waldobh]

Hola muchachos tengo el siguiente problema:
tengo una base de datos prendas en la cual tiene un campo precio y este es numerico simple. como deben de entender en el reporte en visual basic en la grilla me sale el valor sin ningun problema. el proble ma es hacer la consulta y lo hice de esta manera:

Set rs = New ADODB.Recordset
Set rs = cn.Execute("SELECT distinct salida.idproducto, salida.cantidad,salida.tienda, salida.modelo, salida.color, salida.talla, salida.fecha, prendas.PRECIO, salida.cantidad*prendas.PRECIO AS subtotal FROM prendas INNER JOIN salida ON prendas.IDPRODUCTO=salida.idproducto WHERE salida.tienda= '" & cmbtienda.Text & "'")
Set datatienda.DataSource = rs

en el campo subtotal me sale al multiplicacion de los campos ahi visualiizados pero con 10 decimales aprox... asi: un ejemplo 254.2156454465464634. LO QUE DESEO ES QUE SOLO SALGA EL SUBTOTAL CON 2 DECIMALES..
GRAC IAS POR TODO Y LES ESTARE ETERNAMENTE AGRADECIDOS.
ADIOS!!!!!!!!!!!!!1