E Ai galera...

Estou com um probleminha. Criei uma consulta em minha aplicação, só que quando incluo um

registro a consulta não atualiza sou obrigado a fechar a consulta para que ela atualize.

Será que alguél pode me ajudar?

OBS:
(Abri a Consulta dessa maneira no Inicio do Sistema)
 Set rstTmp = DBS.OpenRecordset("SELECT CAD_endereco.*, Cad_Cidade.Cidade," _
            & " Cad_Cidade.Estado, Cad_Bairro.Bairro, Cad_Bairro.Cep FROM " _
            & " Cad_Bairro INNER JOIN (Cad_Cidade INNER JOIN CAD_endereco " _
            & " ON Cad_Cidade.ID_Cidade = CAD_endereco.IDCidade) ON " _
            & " Cad_Bairro.ID_Bairro = CAD_endereco.IDBairro")

 Set rstLocal = DBS.OpenRecordset("Cad_Endereco")
           
 rstLocal.AddNew / rstLocal.Edit
           
 rstLocal!endereco = Trim(txtEndereco.Text)
 rstLocal!IDBairro = txtCodBairro.Text
 rstLocal!cep = Trim(txtCep.Text)
 rstLocal!IDCidade = txtCodCidade.Text
 rstLocal!Status = "Ativo"
 rstLocal.Update