VB怎么设置账号密码？

VB如何设置账号密码呢？
设置在哪里生成密码？

打开数据库资料表内的("用户名称") 和("用户密码") 栏位里面直接改就可以了。
或写一个新增用户名称和用户密码的程式。
比如：
数据库=login.mdb
资料表=user
栏位名=username 和 password
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = Text1.Text
Data1.Recordset.Fields("password") = Text2.Text
Data1.Recordset.Update
Data1.Refresh
MsgBox "成功存取", vbOKOnly + vbInformation
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\login.mdb"
Data1.RecordSource = "user"
End Sub

1.在ACCESS中建立表，名为USER，在表USER中建立两字段，USER_NAME,USER_PASSWORd(这些都可以自己命名的） 2.接连数据库，读取用户名和密码。这个不用说了吧。 3.判断用户名和密码。用读取出来的用户名和密码与输入的比较。 如：读取出来的数据为username,userpassword if trim(text1.text)=username and trim(text2.text)=userpassword then msgbox "用户名和密码正确。“ '在这里加入进入窗体的代码。 ’ME.HIDE 'FORM2.SHOW 'ME.UNLOAD else msgbox "用户名或密码错误。” endif 流程就是这样子，自己扩展吧。 也可以用SELECT * FORM USER WHERe USER_NAME=USERNAME AND USER_PASSWORD=USERPASSWORD

Private Sub Command1_Click() If Text1.Text = "username" And Text2.Text = "password" Then '帐号为username，密码为password MsgBox "输入正确", vbInformation, "提示" Unload Me Form2.Show Else MsgBox "帐号或密码错误", vbCritical, "提示" Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Command1.Caption = "登陆" End Sub