求助：关于获取当前登录用户名到状态栏的问题
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
就是不知道 获取什么才能显示用户名 麻烦高人看看 ，刚学的，最好能解释下

[解决办法]