Private Sub cmdApply_Click()
    adoRcds.Open "Registered_Users", "DSN=BibloDSN", adOpenKeyset, adLockOptimistic
    
    With adoRcds
        .AddNew
        .Fields(0) = txtNewNName.Text
        .Update
    End With
    
    adoRcds.Close
End Sub