ERRO NO UPDATE SQL

SOUZA 27/02/2011 21:44:39
#366721

pessoal to tentando fazer uma atualizacao na tabela mas quando eu uso o comando

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Inclusao where CODIGO = [ô][Ô] & Codigo & [Ô][ô][Ô]
Set dyn = xxbco.CreateDynaset(query)

Dim SQL As String
SQL = [Ô]UPDATE INCLUSAO SET CODIGO=[ô][Ô] & Codigo & [Ô][ô], DATA=[ô][Ô] & Data & [Ô][ô], NOME=[ô][Ô] & Nome & [Ô][ô], CPF=[ô][Ô] & CPF & [Ô][ô][ô][Ô]
xxbco.Execute SQL
xxbco.Close

em vez dele atualizar apenas o codigo do registro que estana na tela ele muda toda a base pra = as info que estao na tela todos os registros ficam = ?