[Resolvido]Exibe a mensagem de porduto salvo com sucesso, mas não altera na tabela

Boa tarde..

Estou a dias trabalhando em um pequeno aplicativo para consulta de endereços de produtos onde eu trabalho, mas no formulário em que eu uso para alterar o endereço e informo o novo endereço no campo apropriado e quando aciono o botão para alterar o endereço, o sistema me da a mensagem de endereço alterado com sucesso, mas quando consulto a tabela o endereço não esta alterado.

Segue anexo parte do bd para analises.

Desde ja agradeço..

Olá, tente assim:

Código:

'// Abre o recordset pelo produto selecionado na TXT  "Cod_Interno_Item"
    Set rs = CurrentDb.OpenRecordset("Select Endereco_Item From Cadastro_Itens Where Cod_Interno_Item='" & Me.CmbCodInternoEndereco.Column(1) & "'", dbOpenDynaset)


O Cod_Interno_Item é a coluna 1 da listbox e o campo é string, por isso as "aspas"
Abraço

Bom dia ahtexeira

Funcionou cara, muito obrigado pela ajuda.

Um Abraço.
Veja como ficou o código:

Código:

Private Sub cmdCadNovoEndereco_Click()
        On Error Resume Next
'// Verifica se os campos obrigatórios estão nulos
        If IsNull(Me.CmbCodInternoEndereco.Column(0)) Or _
              Me.CmbCodInternoEndereco.Column(0) = "" Or _
                IsNull(Me.TxtNovoEndProduto.Value) Or _
                Me.TxtNovoEndProduto.Value = "" Then
MsgBox "Escolha o código do produto e informe o novo Endereço e tente novamente. ", vbInformation, "Sistema de Consulta de Produto - Informação": Exit Sub
End If
       
'// Variáveis
    Dim rs As DAO.Recordset
'// Abre o recordset pelo produto selecionado na TXT  "Cod_Interno_Item"
    Set rs = CurrentDb.OpenRecordset("Select Endereco_Item From Cadastro_Itens Where Cod_Interno_Item='" & Me.CmbCodInternoEndereco.Column(1) & "'", dbOpenDynaset)
    rs.Edit 'Coloca a tabela em modo de edição
    rs![Endereco_Item] = Me.TxtNovoEndProduto.Value 'Atualiza o valor do campo
    rs.Update 'Salva a modificação
'// Informa ao usuário
    MsgBox "Endereço do Produto atualizado com sucesso", vbInformation + vbOKOnly, "Sistema de Consulta de Produtos - Informação"
'// Limpa o campo Novo Estoque
    Me.TxtNovoEndProduto = ""
'// fecha o recordset e limpa a memória
    Set rs = Nothing: Close
'// Atualiza as informações no formulário
    Call CmbCodInternoEndereco_AfterUpdate
'// Encerra a sub definitivamente
    Exit Sub
   
End Sub

Olá Samuel,
Obrigado pelo retorno.
Abraço