VB.NET ขอความช่วยเหลือหน่อยครับ เรื่องการเอาชื่อผู้ใช้มาโชว์ หลังจาก Login อ่ะครับ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dbCon As New SqlConnection("Data Source=IBM;Initial Catalog=db_test;User ID=sa;Password=ton")
        If dbCon.State = ConnectionState.Open Then dbCon.Close()
        dbCon.Open()
        '
        Dim sSQL As String
        sSQL = "SELECT * FROM nk_Grand WHERE GID='" & Trim(txtUser.Text) & "' AND GPass='" & Trim(txtPassword.Text) & "'"
        Dim DA As New SqlDataAdapter(sSQL, dbCon)
        Dim dt As New DataTable
        DA.Fill(dt)
        '
        If dt.Rows.Count = 0 Then
            MsgBox("ชื่อผู้ใช้งานหรือรหัสผ่านไม่ถูกต้อง", MsgBoxStyle.Exclamation)
            Exit Sub
        Else
            MsgBox("สวัสดี  : " & dt.Rows(0)("GID") & "  " & dt.Rows(0)("ngName") & vbNewLine & "ระดับ : " & dt.Rows(0)("ngGrand"), MsgBoxStyle.Information)
        End If
    End Sub

Private Sub btn_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Login.Click
        Conn = New SqlConnection
        With Conn
            If .State = ConnectionState.Open Then Conn.Close()
            Conn.ConnectionString = StrCon
            Conn.Open()
        End With

        Dim sql As String
        sql = "SELECT * FROM nk_Grand WHERE GID='" & Trim(txtUsername.Text) & "' AND GPass='" & Trim(txtPassword.Text) & "'"
        Dim da As New SqlDataAdapter(sql, Conn)
        Dim dt As New DataTable
        da.Fill(dt)

        If dt.Rows.Count > 0 Then
            MsgBox("สวัสดีคุณ  : " & dt.Rows(0)("nGName") & vbNewLine & "ระดับ : " & dt.Rows(0)("nGrand"), MessageBoxIcon.Information)
            If dt.Rows(0)("nGrand") = "ผู้ดูแลระบบ" Then
                nk_MainAdm.Show()
                Me.Hide()
            ElseIf dt.Rows(0)("nGrand") = "พนักงาน" Then
                nk_MainEmp.Show()
                Me.Hide()
            End If
        ElseIf txtUsername.Text = "" Or txtPassword.Text = "" Then
            MessageBox.Show("คุณกรอกข้อมูลไม่ครบ", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtUsername.Focus()
        Else
            MessageBox.Show("ชื่อผู้ใช้ หรือ รหัสผ่านไม่ถูกต้อง", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtUsername.Focus()
        End If
        tmpG_ID = dt.Rows(0)("GID")
        tmpG_GID = dt.Rows(0)("nGID")
        tmpG_GName = dt.Rows(0)("nGName")
        Conn.Close()
        Conn = Nothing
        txtUsername.Clear()
        txtPassword.Clear()
    End Sub