erro no update

[Alex Mauricio]

pessoal to com o seguinte código

o objetivo é incrementar 2 valores nos registros telefone e na verdade ele esta colocando o "novo telefone" em outro campo

Private Sub cmdAdicionarDdd_Click(Index As Integer)

Dim ssql As String

Dim atualiza As String

Dim tel_antigo As String

Dim tel_novo As String

ssql = "select Telefone from Tabela1"

Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(ssql)

While Not TableAntiga.EOF

tel_antigo = TableAntiga!Telefone

tel_novo = "19" + tel_antigo

atualiza = "update Tabela1 set TelefoneNovo = '" & tel_novo & "' where telefone = '" & tel_antigo & "'"

'MsgBox tel_novo

Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(atualiza)

TableAntiga.MoveNext

Wend

TableAntiga.Close

End Sub

está dando erro Run-time error "3219".

Operação inválida....

o que pode tá errado

[kuroi]

em qual linha ocorre esse erro??

de uma olhada nessa linha:

Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(atualiza)

aqui você executa o update e manda dar o retorno no recordset. mas update na tem retorno. ele perde o select q você fez antes e dexa o recordset vazio.

você so precisa executar o codigo, mas não precisa retornar nd. so não sei qual o metodo q faz isso em DAO.