[Resolvido]Ajuda para editar um cadastro por pesquisa

boa tarde a todos

tenho o código abaixo ele esta dando erro na pesquisa , mas não consigo descobrir o que é
por favor alguém poderia me ajudar ?

no caso ele edita um cadastro já existente
segue código :

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM ADM-MFASC WHERE Código=" & Me.Txt_nome.Column(0) & "")

Do While Not rs.EOF
rs.Edit

rs("email") = Me.Txt_email
rs("setor") = Me.Txt_cargo
rs("Login") = Me.Txt_login
rs("senha") = Me.Txt_senha
rs("foto") = Me.Txt_Foto


rs.Update
rs.MoveNext
Loop

Set rs = Nothing
Set db = Nothing
End Sub

Olá Renato,

Um assunto que tenho abordado muito neste fórum é sobre nomenclaturas de objetos de banco de dados, e que se for respeitado, vai facilitar muito a vida do analista/programador.
Evite utilizar nomes de tabelas/campos/consultas ou quaisquer objetos com caracter especiais.
No caso, sua tabela está como "ADM-MFASC", ou seja, com hífem separando as duas palavras.
Procure substituir por UNDERLINE (_).
Para resolver este problema, sua tabela deve estar em colchetes, justamente por usar caracter especiais.
Mude a instrução para:
"SELECT * FROM [ADM-MFASC] WHERE Código=" & Me.Txt_nome.Column(0) & ""

É isso

Espero ter ajudado

Att,

Alexandre Fim

Obrigado , ajudou muito!