Que tal amigo, el hecho que muestre el mensaje no quiere decir que todo este bien, por ejemplo si no le das la instrucción al recordset que guarde los cambios (update).

podrías poner tu código para verlo y buscar el problema.


Saludos..

Buenas Noches, Muchas gracias por la atención con mucho gusto adjunto el código y te agradecería en lo que me puedas ayudar

Muchas Gracias

Private Sub CmdCerrar_Click()
Unload Me 'Cerrar Formulario de Registro de Usuarios Nuevos
End Sub

Private Sub CmgRegistrarUsuario_Click()
'Validar Ingreso de Informacion
If TxtNuevoUsuario.Text = "" Then MsgBox "Ingresar Nuevo Nombre de Usuario", vbInformation, "Aviso": TxtNuevoUsuario.SetFocus: Exit Sub
If TxtContraseñaNueva.Text = "" Then MsgBox "Ingresar Nueva Contraseña", vbInformation, "Aviso": TxtContraseñaNueva.SetFocus: Exit Sub

'Validar si el Usuario Ingresado ya Existe
With RsUsuarios
.Requery
.Find "USUARIO='" & Trim(TxtNuevoUsuario.Text) & "'"
If .EOF Then 'Si no Encontro Nada
'Significa que debo agregar este Usuario como Nuevo
.AddNew
!USUARIO = TxtNuevoUsuario.Text
!Contraseña = TxtContraseñaNueva.Text
.Update 'Guarda los datos en la Tabla
'Actualizar la Grilla en el Formulario Usuarios
Set FrmUsuarios.GrillaUsuariosListado.DataSource = RsUsuarios
FrmUsuarios.EstiloGrilla
MsgBox "Usuario Creado Correctamente", vbInformation, "Aviso"
Unload Me 'Cerrar Formulario
Else
'si esxiste el Usuario
FrmUsuarios.EstiloGrilla
MsgBox "Ya existe Una Cuenta con Este Usuario", vbInformation, "Aviso"
TxtNuevoUsuario.Text = ""
TxtNuevoUsuario.SetFocus
End If
End With
End Sub

Hola de nuevo, a simple vista parece estar bien, seria de destrozar por partes el código para ver la raíz del problema, acá te dejo un ejemplo que funciono perfecto.