Insertar double de Visual Basic Acces en Int de SQL

[dikcc]

Pues lo dicho, tengo una conexión ODBC y estoy intentando realizar un INSERT INTO con un valor DOUBLE en VB en un valor INT en una base de datos SQL tal como así:

Public Function crearCabeceraBono(BONO As Double) As Boolean
Dim strSql As String

On Error GoTo salir_mal

strSql = ""
strSql = " INSERT INTO TC_BONO(CODEMP,BONO,OPERAC,PUESTO,BonoCerrado)" & _
" VALUES (" & _
"'" & getemp() & "'," & _
BONO & "," & _
"'500001'," & _
"'501'," & _
"'N')"

cntDirecto.Execute strSql

crearCabeceraBono = True
Exit Function

salir_mal:
crearCabeceraBono = False

End Function

Nunca se inserta, cuando en otras funciones si que funciona.
¿Qué puede estar mal?
Gracias