我用VB做了个进销货程序，在模块中声明了变量，登录后自动给 struName赋值，但是窗体调用时显示不出当前登录的用户。我又试了别的办法，直接赋值给窗体的Form1.Label.Caption,但是执行Unload me的时候再进入的时候又显示不出用户名了。我是刚学的菜鸟，求高手写个自动返显用户名的代码给我。。

声明了，但是在在在窗体调用的时候调用不了。

确实声明了，赋值之后第一次调用可以用，Unload了以后再进去看就不行了。。
请问登录成功后怎么将用户名赋值给StruName，在Form7中的Label6.Caption调用，Unload me以后也一直存有？
我贴代码出来~
模块中声明Public StruName As String
————————————————————————
LoginForm的一段
  Private Sub Command1_Click()
      Dim strSno As String
      Dim strSelect As String
       strSno = Trim(Text1.Text)                                                '检测用户名是否存在
       strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"
       = adCmdText
       Adodc1.RecordSource = strSelect
       Adodc1.Refresh
      If Adodc1.Recordset.EOF = True Then
        MsgBox "用户名不存在，请重新输入！", , "登录提示信息："
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        Exit Sub
      End If
      If Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then                '检测密码是否正确
         Unload Me
        StruName= StrSon ……………………………………赋值了。。
         MDIForm1.Show
——————————————————————————

Form7的时候
    Private Sub Form_Load()   
      Label6.Caption=StruName  ………………………………就是这里测试的时候不能显示
——————————————————————————
或者我在Login画面+    Form7.Label6.Caption=StruName
 可以显示一次，Unload Me之后就不显示了。。

新手不会……能不能帮我改改，我只是想返显现在登录的用户名而已……不知道该怎么做。。

[ 本帖最后由 olike 于 2013-2-26 07:56 编辑 ]

手打的，所以没注意。。

不要直接赋坿值，要变量的

如果直接打struname=""就等于直接赋值了，我想要变量的，本次登录的是123就赋值123，如果本次登录的是456就是456，随着登录的人变化而变化。。

求解答。。。

没错。。。怎么样写才能引用～～真的没辙了。。求打救。

返显用户名怎么写？求解答