Access - Error coma

Gente tengo este codigo y me da error " coma en la expresion". Sime dicen como solucionar el problema se los agradeceria un monton ya qque lo necesito para una aplicacion en el laburo.

Sub errorcoma()
Dim base As Database
Dim tabla As Recordset
Dim pritot As Double

Set base = CurrentDb
Set tabla = base.OpenRecordset("tabla1", dbOpenSnapshot)

pritot = 407.66

tabla.FindFirst ("Hasta > " & pritot & "") 'aca tira el error'

End Sub

Si pritot es igual a un numero entero el codigo corre sin problemas.

Desde ya muchas gracias.

Rodolfo

El problema está en que al construir una cadena de texto, pritot te lo devuelve usando la conficuración regional para números, que usará la coma como separador.

Prueba a convertirlo primero a cadena utilizando Str() ´:

tabla.FindFirst ("Hasta > " & str(pritot) & "")

Str() es una funión más antigua que Cstr(( y, como tal, no tiene en cuenta la configuración regional, sino que siempre devuelva la amaericana que utiliza el punto como separador.

Saludos
José Bengoechea Ibaceta

Mil gracias, me solucionaste el problema.
Saludos

Rodolfo