Insert into para campos verdadeiros

Ola Pessoal, estou com uma dúvida e não estou conseguindo resolver, alguém pode me ajudar?

fiz uma instrução de Inserto into como abaixo

Public Sub RECORD()
Dim QDF As QueryDef
Dim SQ As String

SQ = " INSERT INTO tblPGroup (groupCode, changedcountryCode)"
SQ = SQ & " SELECT '" & Me.groupCode& "' AS groupCode, '" & Me.changedcountryCode& "' AS changedcountryCode"
Set QDF = CurrentDb.CreateQueryDef("", SQ)

QDF.Execute
QDF.Close
Set QDF = Nothing
End Sub

Lembrando que os campos do meu form são iguais aos campos da tabela, porém para os casos de que tenho texto, número tudo funciona certinho, e o campo changedcountryCode é Verdadeiro/Falso, e ele não marca na tabela se estiver verdadeiro.

Alguém sabe o que pode ter acontecido?

Poderiam me ajudar?


Abços

No meu teste funcionou, com algumas alterações na instrução:

SQ = SQ & " SELECT '" & Me.groupCode & "' AS groupCode, " & Me.changedcountryCode & " AS changedcountryCode"

E tem a alternativa:

SQ = SQ & " Values ('" & Me.groupCode & "', " & Me.changedcountryCode & ")"