[Resolvido]update funciona mas não compila

Function BotaoSalvarPermicoes()
'On Error Resume Next       ' Bom para variaves vasias
'DoCmd.SetWarnings False    ' Bom para evitar msg record db
Dim StrSQL As String

   StrSQL = "UPDATE Funcionario" _
   & "SET XM_Inicial = '" & TxtXM_inicial & "', XM_Cadastro = '" & TxtXM_Cadastro & _
   "', XTodos = '" & Me.TxtXTodos & "', XM_Configuracoes = '" & Me.TxtXM_Configuracoes & _
   "', XM_R1 = '" & Me.TxtXM_R1 & "', XM_R2 = '" & Me.TxtXM_R2 & _
   "', XPagarContas = '" & Me.TxtXPagarContas & _
   "', XProduto = '" & Me.TxtXProduto & _
   "', XrEntrada = '" & Me.TxtXrEntrada & _
   "', XRegistro = '" & Me.TxtXRegistro & _
   "', XRestoque = '" & Me.TxtXRestoque & _
   "', XEntrada = '" & Me.TxtXEntrada & _
   "', XRVendas = '" & Me.TxtXRVendas & _
   "', XM_R3 = '" & Me.TxtXM_R3 & _
   "', XDicasMEI = '" & Me.TxtXdicasmei & _
   "', XConfiguracoes = '" & Me.TxtXConfiguracoes & _
   "', XCadastracontas = '" & TxtXCadastracontas & _
   "', XFuncionario = '" & Me.TxtXFuncionario & _
   "', XLocalizador = '" & Me.TxtXlocalizador & _
   "', XMesa = '" & Me.TxtXMesa & _
   "', XM_Contas = '" & TxtXM_Contas & _
   "', XRbruto_liquido = '" & Me.TxtXRBruto_liquido & _
   "', XMinhaEmpresa = '" & Me.TxtXMinhaEmpresa & _
   "', XOs = '" & Me.TxtXOs & _
   "' WHERE CodFuncionario = " & Me.txtCod & ";"
    DoCmd.RunSQL StrSQL ' executa as ações
         
   Call BeepOnce(0, 0)
   MsgBox ("Permições atualizadas com sucesso!"), vbInformation + vbOKOnly, "SoftFacil"
                 
DoCmd.SetWarnings True
End Function

a mensagem do erro parece obvia: "método ou membro de dados não encontrada" e sempre da no ultimo campo a atualizar
nesse caso foi no "', XOs = '" & Me.TxtXOs & _   sublinhado Me.TxtXOs  sendo que os dois existe tanto que funciona só não compila

Amigo, todas as vezes que vi esse erro e pq o Nome do Campo Estava errado...

Agora acredito esta faltando um Espaço na primeira linha:
StrSQL = "UPDATE Funcionario " _ '<==Foi colocado um Espaço apos a tabela.

Agora, coloque sua tabela que recebera os dados, em modo designer e veja se esse Campo esta exatamente com esse nome.

StrSQL = "UPDATE Funcionario " &_

Não é digitação, pois funciona só não compila, gosto de trabalhar com campos não acoplados, mas nesse caso apenas no subform vinculei os campos e voltei a usar o velho UNDO, OU seja solução alternativa, valeu a todos pela prontidão.

Boa tarde
Se resolveu, marque o Resolvido

ok