NullZero's function will fail for decimals that add up to less than 0.5
ie 4.1 will yield 4 not 5.
Try using this function from MS:
Place the following in a module.
Function Ceiling(N, ByVal Precision)
' Similar to Excel's Ceiling function
' Rounds up to the next higher level of precision.
' Precision cannot be 0.
Dim Temp As Double
Precision = Abs(Precision)
Temp = Int(N / Precision) * Precision
If Temp = N Then
Ceiling = N
Ceiling = Temp + Precision * Sgn(Temp)
An example of how to use in a query,
*Note: This function is accurate up to 14 decimal places ie 4.000000000000001 will yield 5, anything past will yield 4*