（请教达人）如何用VB编写“软件用户”管理程序

要用VB编写一个软件的登陆界面及用户管理。
大致情况如下：1.用户登陆界面：以管理员或普通用户帐号均能进入软件的实际功能操作窗口；以管理员帐号进入用户帐号管理系统。
2.用户帐号管理系统：管理员在此处增加或删除普通用户的帐号及密码。（用户帐号及密码只能由管理员给与)
希望能给出这2个界面的关键部分的程序编写，不甚感激。

1
Private reUser As Recordset

Private Sub cmbUser_Click()
Dim re2 As Recordset
Set re2 = dbYY.OpenRecordset("SELECT * FROM user WHERE 操作员='" & cmbUser.Text & "'")
txtQx.Text = re2(2)
re2.Close
Czy = cmbUser.Text
End Sub

Private Sub Form_Load()
On Error Resume Next
Set reUser = dbYY.OpenRecordset("SELECT * FROM user")
Do While Not reUser.EOF
cmbUser.AddItem reUser(0)
reUser.MoveNext
Loop
cmbUser.ListIndex = 0

End Sub

Private Sub cmdOk_Click()
reUser.MoveFirst
'判断密码
Do While Not reUser.EOF
If reUser.Fields("操作员") = cmbUser.Text Then
Let mm = Trim(reUser.Fields("密码"))
End If
reUser.MoveNext
Loop

If Trim(txtMm.Text) = mm Then
Unload Me