WCF AsyncPattern - asynchronous call chain - Silverlight

<ServiceContract(Namespace:="")>
<AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)>
Public Class MyService

    <OperationContract()>
    Public Function GetNums() As String
        
            Return HttpContext.Current.User.Identity.Name.ToString()
        
    End Function
    <OperationContract()>
    Public Function GetMoreUserData(ByVal Uid As String) As List(Of Entity)
        Dim list As List(Of Entity) = New List(Of Entity)()
        Using conn As SqlConnection = New SqlConnection("MyConnection/Database")
            conn.Open()
            Using dcmd As SqlCommand = New SqlCommand("StoredProcedure", conn)
                Dim prms As New SqlParameter("@Uid", SqlDbType.VarChar, 70)
                prms.Value = Uid & "%"
                dcmd.Parameters.Add(prms)
                dcmd.CommandType = CommandType.StoredProcedure
                Using reader As SqlDataReader = dcmd.ExecuteReader()
                    While reader.Read()
                        list.Add(New Entity() With { _
                                 .NUM = reader("NUM").ToString() _
                                })
                    End While
                End Using
                conn.Close()
            End Using
            Return list
        End Using
    End Function

    <OperationContract()>
    Public Function GetAuthorizeDivision(ByVal NUM As String) As List(Of Entity)
        Dim list As List(Of Entity) = New List(Of Entity)()
        Using conn As SqlConnection = New SqlConnection("MyDatabaseConnection")
            conn.Open()
            Using dcmd As SqlCommand = New SqlCommand("StoredProcedure", conn)
                Dim prms As New SqlParameter("@NUM", SqlDbType.VarChar, 9)
                prms.Value = NUM & "%"
                dcmd.Parameters.Add(prms)
                dcmd.CommandType = CommandType.StoredProcedure
                Using reader As SqlDataReader = dcmd.ExecuteReader()
                    While reader.Read()
                        list.Add(New Entity() With { _
                                 .YESGO = reader("YESGO").ToString() _
                                 })
                    End While
                End Using
                conn.Close()
            End Using
            Return list
        End Using
    End Function

    <OperationContract()>
    Public Function GetAuthorizedAppU(ByVal EAPPNUM As String) As List(Of Entity)
        Dim list As List(Of Entity) = New List(Of Entity)()
        Using conn As SqlConnection = New SqlConnection("MyDatabase/Connetion")
            conn.Open()
            Using dcmd As SqlCommand = New SqlCommand("StoredProcedure", conn)
                Dim prms As New SqlParameter("@EAPPNUM", SqlDbType.VarChar, 15)
                prms.Value = EAPPNUM & "%"
                dcmd.Parameters.Add(prms)
                dcmd.CommandType = CommandType.StoredProcedure

                Using reader As SqlDataReader = dcmd.ExecuteReader
                    While reader.Read()
                        list.Add(New Entity() With { _
                                 .Column1 = reader("Column1").ToString _
                                 })
                    End While
                    conn.Close()
                End Using
                Return list
            End Using
        End Using
    End Function