Atualizar Datagrid

Boa noite pessoal!

Tenho uma tabela com alguns campos que ao serem inseridos devem aparecer no DataGrid. Estava tudo occorendo perfeitamente bem, só que de uma hora pra outra, agora o DataGrid salva os o novo registro, mas só aparece os dados novos na DataGrid se eu fechar o formulário e abrí-lo novamente!

Private Sub cmdSalvar_Click()

On Error GoTo mensagem

DadosRetorno.Recordset.Update

DadosRetorno.Refresh

Exit Sub

mensagem:

MsgBox "Você tentou Inserir um nome já existente. Digite um novo nome."

End Sub