PROBLEMA AO EDITAR

Citação:

Conecta True

If txtCodigo = [Ô][Ô] Then
PF_VERIFICACODIGO
VARCONTROLE = [Ô]GRAVAR[Ô]
Else
Set RS = Conexao.Execute([Ô]SELECT * FROM DIA WHERE CODIGO=[Ô] & txtCodigo)
If RS.RecordCount = 0 Then
VARCONTROLE = [Ô]GRAVAR[Ô]
Else
VARCONTROLE = [Ô]EDITAR[Ô]
End If
End If




SQL = [Ô]Select * from dia[Ô]
Set RS = New ADODB.Recordset
RS.Open SQL, Conexao, adOpenDynamic, adLockPessimistic

If VARCONTROLE = [Ô]GRAVAR[Ô] Then RS.AddNew Else RS.Edit

RS!CODIGO = txtCodigo
RS!nome = txtNome
RS!cidade = txtCidade
RS!sobrenome = txtSobrenome
RS!endereco = txtEndereco
RS.Update

Conecta False