Ver Mensaje Individual
  #9 (permalink)  
Antiguo 07/02/2005, 16:27
almaluz
 
Fecha de Ingreso: diciembre-2001
Mensajes: 262
Antigüedad: 23 años, 2 meses
Puntos: 0
Buenas de nuevo.

He conseguido solucionarlo con el siguiente..

If precio is DbNull.value Then
precio=0
Numero = CStr("Consultar")
else
precio = cInt(precio)
numero = FormatNumber(precio,2)
End If

Return Numero

Pos si le sirve a alguien.

Saludos