Comparar valores que tem no Form com valores da Tabela em Form Desvinculado

Boa tarde Srs.

Peguei esse exemplo do JPaulo e tentei adaptar no form desvinculado, porém ele não funciona, ele apenas passa pelo controles e mas no final não insere nada na tabela de logs

estou tentando fazer um logs de alterações.

Código:

Dim strcheck As Boolean
Dim strSql As String
Dim ctl As Control

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Value <> ctl.OldValue Or IsNull(ctl.Value) And Len(ctl.OldValue) > 0 Or ctl.Value = "" And Len(ctl.OldValue) > 0 Or IsNull(ctl.OldValue) And Len(ctl.Value) > 0 Or ctl.OldValue = "" And Len(ctl.Value) > 0 Then
    strcheck = True
    DoCmd.SetWarnings False

    strSql = "INSERT INTO TBLLOG (USUARIO,DHLOG,FORM,TITULO,CAMPO,ANTERIOR,ATUAL,STATUS)" & _
    "VALUES('" & Forms!FrmMain!usuariologado & "', Now(),'" & Me.Form.Name & "','" & Me.Form.Caption & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "ALTERACAO" & "')"
    DoCmd.RunSQL strSql
   
    DoCmd.SetWarnings True
Else
    Cancel = True
End If
End Select
Next ctl

UP....