อยากดึงข้อมูลที่เลือก ใน SQL มาลงใน Label พอมีใครจะช่วยได้มั่งครับ

 Try
            ConnectDataBase()
            StrSQL = "SELECT * FROM TbUserAdmin WHERE UserAdmin='" & FrmLogin.txtUserName.Text & "'"
            Mycmd = New SqlCommand(StrSQL, Mycon)
            Mycmd.Connection = Mycon
            MyReader = Mycmd.ExecuteReader
            MyReader.Read()
            If MyReader.HasRows Then
                ConnectDataBaseUserAdmin()
                Dim StrSQL1 As String = "SELECT CodeEM FROM TbUserAdmin WHERE UserAdmin='" & FrmLogin.txtUserName.Text & "'"
                Mycmd1 = New SqlCommand(StrSQL1, Mycon)
                Mycmd1.Connection = Mycon
                DA = New SqlDataAdapter
                DT = New DataTable
                DA.SelectCommand = Mycmd1
                DA.Fill(DS, "TbUserAdmin")

                FrmOrder.lblUserEmployee.Text = DS.Tables("TbUserAdmin").Rows(I).Item("CodeEM")
                FrmOrder.txtUserName.Text = DS.Tables("TbUserAdmin").Rows(I).Item(0)
            Else
                ConnectCodeEMEmployee()
            End If