Ajuda com SQL

Bom dia a todos do fórum

Ajudem a encontrar o erro neste código:

Código:

Public Function incluir() As Boolean


Dim strSql As String

strSql = "insert into TB_MEDICO "

'CAMPOS DA TABELA - DADOS RECUPERADOS DO TARMS
strSql = strSql & "(NomedoSolicitante, "
strSql = strSql & "NomedoPaciente, "
strSql = strSql & "NumerodoContato, "
strSql = strSql & "NomeCidade, "
strSql = strSql & "Endereço, "
strSql = strSql & "NumeroCasa, "
strSql = strSql & "NomeBairro, "
strSql = strSql & "PontodeReferencia, "
strSql = strSql & "DataChamado, "
strSql = strSql & "HoraChamado, "
strSql = strSql & "NomeAtendenteTARM, "
strSql = strSql & "status) "
strSql = strSql & "Values "
strSql = strSql & "(""" & Me.NomedoSolicitante & """, "
strSql = strSql & """" & Me.NomedoPaciente & """, "
strSql = strSql & """" & Me.NumerodoContato & """, "
strSql = strSql & """" & Me.NomeCidade & """, "
strSql = strSql & """" & Me.Endereço & """, "
strSql = strSql & """" & Me.NumeroCasa & """, "
strSql = strSql & """" & Me.NomeBairro & """, "
strSql = strSql & """" & Me.PontodeReferencia & """, "
strSql = strSql & "#" & Me.DataChamado & "#, "
strSql = strSql & "#" & Me.HoraChamado & "#, "
strSql = strSql & """" & Me.NomeAtendenteTARM & """, "
strSql = strSql & """" & Me.Status & """); "

DoCmd.RunSQL strSql

End Function

No aguardo

Olá, qual o erro que está a dar?
Já tentou com menos campos (para saber qual deles é que possa estar a dar erro).
Se não conseguir será melhor postar base de dados com tabela e formulário em questão.
Abraço

Olá Mathus Almeida, como ficou a situação?
Os utilizadores do fórum merecem e agradecem o retorno.

Caso seja o caso, não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço