Error en mi tabla sobre los datos en la expresión de criterios

Espero que pueda echarme una manito con esto:
Sinopsis:
Tengo una tabla "bodega" con productos con clave en " código"(TEXTO). En un formulario " nuevo ingreso" pongo el "codigo". Si existe, pasa a llenar el nuevo ingreso más (+)saldo anterior para dar "nuevo saldo". Si no, da aviso de "crear nuevo" y llenar los datos.
Drama:
Funcionaba hasta que... No se que pasa que ahora me da el siguiente error:"no coinciden los tipos de datos en la expresión de criterios".
También funcionaba el otro código, es decir, cuando agregaba productos y los sumaba, pero ahora no doy pie en bola.
También. Me he "recocido" el cerebro tratando de dilucidar el drama del manejo de stock. Como logro actualizar los saldos al ingresar nuevos productos.
Pues.
Envío el código que usé
Option Compare Database
Private Sub codigo_AfterUpdate()
Dim codigo As Integer
A = Me.codigo
Me.Form.Recordset.findfirst "codigo = " & A (**aquí me muestra error)
If Me.Form.Recordset.nomatch Then
respuesta = MsgBox("No hay ningún Producto con ese código, ¿desea agregarlo?.", vbYesNo, "¿Agregar registro?")
If respuesta = 6 Then
DoCmd.GoToRecord acActiveDataObject, , acNewRec
Me.codigo = Me.codigo
Me.nombre.SetFocus
End If
End If
End Sub
Private Sub nvo_ingreso_afterUpdate()
Dim nvo_ingreso As Long
nvo_ingreso = (Temp.ingreso)
DSum ((bodega.saldo),"nvo_ingreso" ,, [Temp].[codigo] <= ['form_nuevo ingreso'].[codigo])) (**aqui error de sintaxis)
End Sub