Erro ao usar UPDATE

[Justino 0]

Um Bem Aja a todosSou novato no Forun e preciso de ajudaTenho uma rotina para alterar um registo, mas não funciona, não sei o que fazer'Edita amigo da tabela AmigosPrivate Sub EditaAmigo() Dim SQL As String On Error GoTo trataerro 'abre a conexao OpenConnection SQL = "UPDATE Amigos SET (Nome=?,Sobrenome=?,Apelido=?,Nascimento=?,Genero=?,Endereco=?,Telefone=?) Where ID=? " & " VALUES (?,?,?,?,?,?,?,?)" With command .ActiveConnection = connection .CommandType = adCmdText .CommandText = SQL .Execute Array(txtNome.Text, txtSobrenome.Text, txtApelido.Text, Format(dtpNascimento.Value, "dd / mm / yyyy"), Genero, txtEndereco.Text, txtTelefone.Text, ID) End With 'Limpa o texto depois de salvar cmdLimpar_Click 'fecha a conexao CloseConnection Exit Subtrataerro: MsgBox "Não foi possível efetuar a atualização dos dados.", vbCritical, "Atualizando dados" 'Limpa o texto depois de salvar cmdLimpar_Click 'fecha a conexao CloseConnection End SubSe eu retirar On Error GoTo trataerro apresenta o erro de sintaxe na instrução UPDATEA rotina 'Inclui um amigo na tabela Amigos funciona bem'Inclui um amigo na tabela AmigosPrivate Sub IncluiAmigo() Dim SQL As String 'abre conexao OpenConnection SQL = "INSERT INTO Amigos (Nome,Sobrenome,Apelido,Nascimento,Genero,Endereco,Telefone)" & " VALUES (?,?,?,?,?,?,?)" With command .ActiveConnection = connection .CommandType = adCmdText .CommandText = SQL .Execute , Array(txtNome.Text, txtSobrenome.Text, txtApelido.Text, dtpNascimento.Value, Genero, txtEndereco.Text, txtTelefone.Text) End With 'limpa o texto depois de salvar cmdLimpar_Click 'fecha a conexao CloseConnectionEnd SubUm muito Obrigado

[Mário Monteiro 179]

este ? seria como se fosse um caracter?? se for coloque entre aspas simplese tire o final aliSQL = "UPDATE Amigos SET Nome='?',Sobrenome='?',Apelido='?',Nascimento='?',Genero='?',Endereco='?',Telefone='?' Where ID='?'"se tiver algum campo numerico voce tira as aspas simples

[Justino 0]

este ? seria como se fosse um caracter?? se for coloque entre aspas simplese tire o final aliSQL = "UPDATE Amigos SET Nome='?',Sobrenome='?',Apelido='?',Nascimento='?',Genero='?',Endereco='?',Telefone='?' Where ID='?'"se tiver algum campo numerico voce tira as aspas simples

Desde já obrigado pela dica, mas não consegui por a rotina a funcionarTentei dentro da dica dada várias soluções, mas nadaSinceramente não sei o que fazer, pois não sei onde possa estar o erro, se me puderes ajudar fico agradecidoAJustino

[Luizgrs 0]

Porque você está colocando essas interrogações?O erro continuou o mesmo depois de você ter feito segundo o mariofpa?