vb.net2005登录信息怎么自动显示在需要得界面

vb.net2005登录信息如何自动显示在需要得界面？
我的程序在登录界面上查询的用户信息，比如员工编号在其他界面中自动显示？比如登录员工编号0101姓名张三我在进货界面里用label,或textbox自动显示员工编号0101姓名张三的信息应如何编写代码？
我的登录界面代码如下
 Dim strcon, strcmd As String
  strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
  Dim sqlcon As SqlConnection = New SqlConnection(strcon) '建立数据库
  sqlcon.Open()
  strcmd = "Select * From yhxinxi Where [Name]='" & TextBox1.Text & "' And [Password]='" & TextBox2.Text & "'And [ygbh]='" & TextBox4.Text & "'" '查询yhxinxi表内name,password,ygbh信息
  Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
  Dim dr As SqlDataReader
  dr = sqlcmd.ExecuteReader
  If dr.Read() Then
 Dim login As New Form2
  login.ShowDialog()
 Else
  MessageBox.Show("你输入的用户名和密码或员工编号不正确,请重新输入!", "错误提示!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
  TextBox1.Text = ""
  TextBox2.Text = ""
  TextBox3.Text = ""
  TextBox4.Text = ""
  TextBox1.Focus()
  Me.Label4.Text = DBUser.AttachCode
  Exit Sub
  End If

[解决办法]
三种办法：
第一，你取出用户名及编号后
dim newForm as new frmJHForm '实例进货的窗体，或者不在这里实例窗体，窗体是全局的变量更好
newForm.labelX.text=用户名
newForm.labely.text= 编号


第二，声明全局的变量sUserName 及sUserID,赋好值后用的时候调用就OK了

第三，找到进货窗体的句柄，用sendmessage（API函数）向窗体发消息，然后……
[解决办法]
声明全局的变量sUserName 及sUserID
----------------------------------
這個方便點。
[解决办法]
定义一个:

VB.NET code

Public Class CurrentUserCls    Public Shared UserName As String    Public Shared UserID As String    '...End Class