不支持一个 STA 线程上针对多个句柄的 WaitAll。
<MTAThreadAttribute()> _
Sub BindMultiData()
Dim CusQueryStr As String = "select * from customers where companyName ='Alfreds Futterkiste'"

Dim SupQueryStr As String = "SELECT Customers.CompanyName, Customers.ContactName," & _
"Orders.OrderID, Orders.OrderDate, " & _
"Orders.RequiredDate, Orders.ShippedDate " & _
"FROM Orders, Customers " & _
"WHERE Orders.CustomerID = Customers.CustomerID " & _
"AND Customers.CompanyName = 'Alfreds Futterkiste' " & _
"ORDER BY Customers.CompanyName, Customers.ContactName"

Using myCon As SqlConnection = New SqlConnection(ConStr)
Dim CusCmd As SqlCommand = New SqlCommand(CusQueryStr, myCon)
Dim SupCmd As SqlCommand = New SqlCommand(SupQueryStr, myCon)

Dim CusDR As SqlDataReader
Dim SupDr As SqlDataReader

Dim CusisynResult As IAsyncResult
Dim SupisynResult As IAsyncResult

'创建句柄数组
Dim WHandles() As System.Threading.WaitHandle = {New AutoResetEvent(False), New AutoResetEvent(False)}
' Private Shared waitHandles() As WaitHandle = {New AutoResetEvent(False), New AutoResetEvent(False)}


Dim CusHandle As System.Threading.WaitHandle
Dim SupHandle As System.Threading.WaitHandle

myCon.Open()

CusisynResult = CusCmd.BeginExecuteReader(CommandBehavior.CloseConnection)
SupisynResult = SupCmd.BeginExecuteReader(CommandBehavior.CloseConnection)

CusHandle = CusisynResult.AsyncWaitHandle
SupHandle = SupisynResult.AsyncWaitHandle

'将等待句柄赋值给句柄数组
WHandles(0) = CusHandle
WHandles(1) = SupHandle

'将数组传给waitall方法,等待所以的异步查询完成
System.Threading.WaitHandle.WaitAll(WHandles) ‘//////////就是这儿提示错了


CusDR = CusCmd.EndExecuteReader(CusisynResult)
SupDr = SupCmd.EndExecuteReader(SupisynResult)


Dim Cusbs As BindingSource = New BindingSource
Cusbs.DataSource = CusDR
DataGridView1.DataSource = Cusbs

Dim SupBs As BindingSource = New BindingSource
SupBs.DataSource = SupDr
DataGridView1.DataSource = SupBs


End Using

End Sub

[解决办法]
ding 有没有高手？