pelo q percebi, vcs estão abrindo a tabela mas não estão posicionando em egistro algum...
seguindo o código do Rafael ...
Set banco = OpenDatabase(App.Path & "anco_sistema.mdb")
Dim strsql
strsql = "SELECT * FROM clientes where codigo="& VARIAVEL ' AKI VC DETERMINA QUAL REGISTRO SERÁ EDITADO
Set Tabela = Banco.OpenRecordset(strsql, dbOpenDynaset)
DO UNTIL TABELA.EOF ' AKI VERIFICA SE EXISTE O REGISTRO
N=TABELA.RECORDCOUNT
LOOP
TABELA.CLOSE
If N=0 then
msgbox "Não existe o registro solicitado"
exit sub
else
Set Tabela = Banco.OpenRecordset(strsql, dbOpenDynaset)
Tabela.edit
tabela("campoTal")= VARIAVEL_NOVOVALOR
tabela.update
tabela.close
