[Resolvido]Erro Access

Boa Noite.
Tenho uma Tabela (TabAgendaTelefonica) com campos (TEXTOEMPRESA, TEXTORESPONSAVEL, TEXTOCELULAR, TEXTOTELEFONE, TEXTOENDERECO,TEXTOEMAIL, TEXTOOBSERVACOES).

Ao executar o Botão de "Salvar" apresenta o seguinte ERRO "Erro Tempo de Execução 91 - A Variável do Objeto ou Variável do Bloco With não foi definida"

Não estou conseguindo descobrir que ERRO seria esse, por favor, alguém poderia me ajudar ?

Segue o Código:

Private Sub BotaoSalvar_Click()
Comando = "Insert into TabAgendatelefonica(Empresa,Responsável,Celular,Telefone,Endereço,Email,Observações)value('" & TEXTOEMPRESA & "', '" & TEXTORESPONSAVEL & "', '" & TEXTOCELULAR & "', '" & TEXTOTELEFONE & "', '" & TEXTOENDERECO & "', '" & TEXTOEMAIL & "', '" & TEXTOOBSERVACOES & "')"
banco.Execute (Comando)
MsgBox "Os dados foram cadastrados com sucesso!"
Limpar 'chamamos o método limpar
End Sub

Olá Aline,

Declare sua variável 'Comando' como String antes do bloco de código e tire os parênteses após Execute:

Dim Comando As String

Código:


Private Sub BotaoSalvar_Click()
Dim Comando As String

Comando = "Insert into TabAgendatelefonica(Empresa,Responsável,Celular,Telefone,Endereço,Email,Observações)value('" & TEXTOEMPRESA & "', '" & TEXTORESPONSAVEL & "', '" & TEXTOCELULAR & "', '" & TEXTOTELEFONE & "', '" & TEXTOENDERECO & "', '" & TEXTOEMAIL & "', '" & TEXTOOBSERVACOES & "')"
banco.Execute Comando
MsgBox "Os dados foram cadastrados com sucesso!"
Limpar 'chamamos o método limpar
End Sub

Além disso, corrija a palavra "value" para "values", deixando também um espaço antes e um depois da palavra.

De:

)value(

para:

) values (

Obrigada!!!
Coloquei "value" errado.
Obrigada de verdade!!!