Private Sub mnuEliminarUsuarios_Click()
nombreUsuario = InputBox("INGRESE EL NOMBRE DEL USUARIO QUE DESEA ELIMINAR", "ELIMINAR", "INGRESE USUARIO")
If nombreUsuario = "" Then
MsgBox "Debe Ingresar un Nombre de Usuario", vbInformation, "Aviso"
Exit Sub
Else
With RsUsuarios
.Requery
.Find "Id=' " & Trim(nombreUsuario) & " ' "
If .EOF Then
.Requery
MsgBox "No se encontro ningun USUARIO con ese nombre", vbInformation, "Aviso"
.Requery
Exit Sub
Else
If MsgBox("Desea eliminar a: " & nombreUsuario, vbInformation + vbYesNo, "Eliminar") = vbYes Then
.Delete
.Requery
Else
.Requery
End If
End If
End With
End If
End Sub

Mi problema es que no me reconoce los usuarios de la base de datos, pero al momento de agregar el .Requery abajo del .find, lo anexo:

With RsUsuarios
.Find "Id=' " & Trim(nombreUsuario) & " ' "
.Requery
If .EOF Then
.Requery

Si me reconoce todo y corre el programa pero al momento de "Eliminar" el Usuario me elimina el primero y no el que seleccione, es decir, yo tengo 4 usuarios dados de alta, pero al momento de eliminar el segundo, el tercero ó el cuarto, siempre me borra el primero, no importando que yo queiera borrar algun otro, siempre borra el primero y no he podido resolver este problema.

Agradezco su amable ayuda.

Gracias!!!

hola mi amigo, 2 cositas nada mas estas haciendo mal...
mira, primero que nada realiza el Requery antes del find (para que te actualice el Rs previa a la busqueda) y lo segundo es que haces la busqueda del campo Id (me imagino que es un campo numerico y si es en access autonumerico) y lo comparas con una variable NombreUsuario que es un string, nunca encontraras un usuario de esa forma y siempre borraras el primer registro de la tabla porque ahi se posiciona tu Rs al darle el Requery. Saludos desde Paraguay, espero haber sido de ayuda!