Dim WithEvents opc_server As OPCAutomation.opcSERVER
Dim WithEvents opc_group As OPCAutomation.OPCGroup
Dim opc_item As OPCAutomation.OPCItem
Dim ClientHandles As Long
Dim serverhandless(1) As Long
Dim Errors(1) As Long
Dim cannel As Long
Dim transactionID As Long
Const numitem = 1

Private Sub Command1_Click()
Set opc_server = New OPCAutomation.opcSERVER
opc_server.Connect ("Kepware.KepServerEX.V4")
Debug.Print opc_server.ServerState '1为连接成功
'建立组对象
Set opc_group = opc_server.OPCGroups.Add
'设置好组的基本属性
opc_group.IsActive = True
opc_group.IsSubscribed = True
opc_group.UpdateRate = 1000
'建立项
Set opc_item = opc_group.OPCItems.AddItem("_System._Time_Second", 1)
serverhandless(1) = opc_item.ServerHandle
Debug.Print opc_item.ServerHandle
'异步读取
opc_group.AsyncRead numitem, serverhandless, Errors, transactionID, cannel
End Sub
这是一个简单的所有程序，就是最后异步读取的时候报错:类型不匹配 错误类型13

服务器连接是正常的...