求助：关于获取当前登录用户名到状态栏的问题
1.登录窗代码：
Public Class LoginForm1
Dim Conn As OleDb.OleDbConnection
Dim Cmd As OleDb.OleDbCommand
Dim Rd As OleDb.OleDbDataReader
Dim SQL As String
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=E:\Database\baogd.mdb"
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
' Me.Close()
Conn = New OleDb.OleDbConnection(Provider & ";" & Database)
Conn.Open()
SQL = "Select * From 登录 Where Name='" & UsernameTextBox.Text & "' And Password='" & PasswordTextBox.Text & "'"
Cmd = New OleDb.OleDbCommand(SQL, Conn)
Rd = Cmd.ExecuteReader()
If Rd.Read() Then
Dim form1 As New Frmmain
form1.Show()
Me.Hide()
Else
MessageBox.Show("密码或用户名错误!", "错误提示!", MessageBoxButtons.OK, MessageBoxIcon.Error)
UsernameTextBox.Text = ""
PasswordTextBox.Text = ""
UsernameTextBox.Focus()
End If
End Sub
2.主窗体部分代码：
Private Sub Frmmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
StatusBar1.Panels(2).Text = "操作员: " & Name '在状态栏显示当前的操作员为登录
StatusBar1.Panels(3).Text = Today() '显示系统当前的日期
StatusBar1.Panels(4).Text = TimeOfDay() '显示系统当前的时间
End Sub
就是不知道 获取什么才能显示用户名 麻烦高人看看 ，刚学的，最好能解释下
[解决办法]
