Erro de sintaxe 3075

Boa tarde, galera.

Estou com um problema que não estou conseguindo resolver. Tentei procurar em outros tópicos mas não encontrei algo que se aplicasse ao meu caso.

Eis a parte que está gerando o erro.`

usuarioAcao = retornaUsuario(1)

logAcao = "INSERT INTO LogAcaoDrive(usuarioLog) VALUES ('" & usuarioAcao & "');"

Aqui segue a imagem do erro:



https://dl.dropboxusercontent.com/u/16824474/erro.jpg

O que é usuarioAcao? O que é retornaUsuario? Qual linha do código fica destacada quando depura o erro? Poste todos os códigos e detalhes referentes ao erro.

usuarioAcao é um campo de um formulário. retornaUsuario:

Option Compare Database


Private Declare Function api_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'Módulo que retorna o nome do usuário que executou alguma tarefa no sistema
Public Function retornaUsuario(UOrC As Integer) As String

On Error Resume Next

Dim NBuffer As String
Dim Buffsize As Long
Dim Wok As Long

Let Buffsize = 256
Let NBuffer = Space$(Buffsize)



If UOrC = 1 Then
Let Wok = api_GetUserName(NBuffer, Buffsize)
Let retornaUsuario = Trim$(NBuffer)
End If
End Function

Tenho uma tabela de log (LogAcaoDrive) com 4 campos: data, hora, usuario e fundo.

Tentei enviar os quatros dados de uma vez e não consegui. Tentei enviar um dado de cada vez, e percebi que o erro só dá com o usuarioAcao. Já tentei enviar sem aspas simples:

logAcao = "INSERT INTO LogAcaoDrive(usuarioLog) VALUES (" & usuarioAcao & ");"

Desse jeito ele dá esse erro:



Em ambos os casos, a linha que fica destacada é essa:

usuarioAcao = retornaUsuario(1)

logAcao = "INSERT INTO LogAcaoDrive(usuarioLog) VALUES ('" & usuarioAcao & "');"
DoCmd.RunSQL logAcao