desculpe me anganei a vigula está antes

tá meio dificil

 

faz o seguinte passe tudo para uma linha só pra testar

 

É para vc Teze de SÃO VICENTE responder para Gnecco.
A tabela de Gnecco contém um campo na qual eu acho que faz referência algum nome do "ACESS".

Dim Sqlstring As String
Sqlstring = "insert into Estoque (" & _
            "Produto, " & _
            "Descricao, " & _
            "Modelo, " & _
            "PartNumber, " & _
            "SerialNumber, " & _
            "Observacoes, " & _
            "Ems " & _
            ") values (" & _
            ",'" & txtProduto.Text & "'" & _
            ",'" & TxtDescriçao.Text & "'" & _
            ",'" & txtModelo.Text & "'" & _
            ",'" & txtPart.Text & "'" & _
            ",'" & txtSerial.Text & "'" & _
            ",'" & txtObs.Text & "'" & _
            ",'" & txtems.Text & "'" & _
            ")"
            BancoDeDados.Execute (Sqlstring)
             MsgBox "Gravado"

Ola Gnecco, bom dia!

 

Realmente não se deve usar nomes de comandos, funções, instruções etc. para nomes

de campos em Tabelas Access.

Testando a sua SQL, aqui também não funcionou usando o campo Desc e alterando

para Descricao ( conforme o Omar já respondeu ) deu certo, e aqui vai

a SQL do jeito que tá funcionando aqui gravando números, datas e strings sem problemas.

Se der erros continua a postar ai.

 

sqlstring = "insert into Estoque (Produto,Descricao," & _
"Modelo,PartNumber,SerialNumber,Observacoes,Ems) values" & _
"('" & Txtproduto.Text & "','" & _
Txtdescriçao.Text & "','" & _
Txtmodelo.Text & "','" & _
Txtpart.Text & "','" & _
Txtserial.Text & "','" & _
Txtobs.Text & "','" & _
Txtems.Text & "')"

Tenham todos um bom dia!

É incrivel como não percebi tal situação, parabens OMAR, pra mim este deralhe havia passado batido, e olha que já passei por este problema, parabens galera bem observado.

 

GNECCO o problema pode ter sido causado por alguma atualização no PC