函数评估要求所有线程都在VB.net中运行

Question

当我尝试从Orders表中获取值时，它将在结果中显示此消息，而不是Orders表中的值

Private ReadOnly db As New DataModel
Public Property GridData As Object
Function Index() As ActionResult

    'BindDataSource()
    Dim DataSorce = db.orders.ToList()
    GridData = From orders In db.orders Select New With {orders.OrderID, orders.EmployeeID, orders.CustomerID}
    'DataSorce.getAllRecords()
    'Dim contracts = datas
    Return View(GridData)
End Function