如何在vb中把登录用户信息保存

Option Explicit
Dim cnt As Integer '记录确定次数

Private Sub cmdcancel_Click()
conn.Close
Set conn = Nothing
End
End Sub

Public Sub cmdok_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(txtname.Text) = "" Then '判断输入的用户名是否为空
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtname.SetFocus
Else
sql = "select * from 系统管理 where 用户名='" & txtname.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtname.SetFocus
Else '检验密码是否正确
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
userID = txtname.Text
username = rs_login.Fields(2)
rs_login

如何在登后后，在登录框显示用户信息 在VB中怎么把文字保存到数据库中？ 如何更改百度登录用户信息的资料 VB中如何保存按钮？ 在vb中如何编写保存文件代码？ 如何把东西保存在电脑中 vb中如何将随机数保存到在vb中建立的一个文档中？ 用VB做登陆系统,如何在显示出来的窗体获取用户信息 如何把算式在vb中计算 在VB中能不能把一些少量的数据保存在本身EXE中？