Guardar datos en Access con vba

Estoy intentando insertar registros en dos tablas de Access mediante vba, (los datos que quiero insertar los saco de un excel). El código que utilizo es el siguiente:
Public Function insertarCantidad(ByVal colum As String, ByVal cant As String, ByVal centroDif As String) As Boolean
' Método para insertar la cantidad "cant" en la columna correspondiente "colum"
insertarCantidadr = True
Dim SQL As String
Dim db As Object
Dim rst As Object
Dim dato As Variant
On Error GoTo error_1
' Asocio a la BD actual
Set db = OpenDatabase(CurrentDb.Name)
On Error Resume Next
    SQL = "UPDATE [LISTADOS_MATERIALES_M-Z] SET " & colum & "='" & cant & "' WHERE [CENTRO_DIFUSOR] = " & centroDif
      db.Execute SQL, DB_UPDATABLEFIELD
      db.Update (dbUpdateRegular)
If Not rst Is Nothing Then rst.Close
    Set rst = Nothing
If Not db Is Nothing Then db.Close
    Set db = Nothing
    insertarCantidad = True
exit_Function:
   Exit Function
error_1:
    MsgBox Err.Description
    'MsgBox "Ha habido un erroral insertar una cantidad en la tabla M-Z.", vbCritical, "ERROR"
    insertarCantidad = False
        Resume exit_Function
End Function
El problema es que abro la tabla y no hay nada, no sé por qué no se guardan los datos...
¿Alguien sabe cómo solucionar esto?