This is not a problem but an observation, sometimes Access throws you an unexpected curveball. This time the problem circles around Jet/Ace and float numbers.
Dim s As String
Dim x as Double
x = 125.25
s = " Insert into MyTable (MyNumber) Values ( " & x & ")"
Currentdb.Execute s, dbFailOnError...