主题：自定义用户管理与权限

我按照帮助，设置了，自定义的用户管理与权限

但是想实现，除了管理员，登录用户也可以自己修改密码，但是不能修改别人的密码，因为目前的帮助中的代码，登录人员是可以看到其他人的密码的，也可以修改，如何让用户管理中的 listbox1 中只出现登录人员自己的名字呢？

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
lst.Items.Add(dr("Name"))
Next
If Lst.Items.Count > 0 Then
lst.SelectedIndex = 0
End If

这是用户管理窗口中 afterload 中的代码

要如何再增加密码，实现我上面所述功能呢