ContextSwitchDeadlock was detected

Hi

I am getting below error on a long running query crashing the app, even though I am running the query as background task;

ContextSwitchDeadlock was detected
Message: The CLR has been unable to transition from COM context 0x623978 to COM context 0x623ae8 for 60 seconds. The thread that owns the destination context/apartment is most likely either doing a non pumping wait or processing a very long running operation without pumping Windows messages. This situation generally has a negative performance impact and may even lead to the application becoming non responsive or memory usage accumulating continually over time. To avoid this problem, all single threaded apartment (STA) threads should use pumping wait primitives (such as CoWaitForMultipleHandles) and routinely pump messages during long running operations.

The code is below. How can I fix the 'ContextSwitchDeadlock was detected' issue please?

    Function ExecuteSQL(ByVal St As String) As Boolean

        Try

            Try

                Dim result = ExecuteSQLAsync(DBCommand)
                I = result.Result

            Catch ae As AggregateException

                For Each ex In ae.InnerExceptions
                    Throw
                Next

            End Try

            Return True

        Catch ex As SystemException

            MsgBox(ex.Message)

            Return True

        End Try

    End Function


    Async Function ExecuteSQLAsync(DBCommand As SqlCommand) As Task(Of Integer)

        Dim x = Await DBCommand.ExecuteNonQueryAsync()

        Return x

    End Function

Thanks

Regards