我在用vb编写一个客户端时下面的程序有个地方怎么老是提出有错：
Public Sub MoniterConnect(ByVal strProID As String, GroupName As String, Optional ByVal strNode As String = "LXY-E7FC7EB75D7")
If MoniterOpcSever Is Nothing Then
Set MoniterOpcSever = New OPCServer
End If
If MoniterOpcSever.ServerState = MoniterOpcSever.Disconnect Then
MoniterOpcSever.Connect strProID, strNode
End If
If MoniterOPcGroups Is Nothing Then
Set MoniterOPcGroups = New OPCGroups
End If
If MoniterOPcGroup Is Nothing Then
MoniterOpcSever.OPCGroups.DefaultGroupUpdateRate = 0
Set MoniterOPcGroup = MoniterOPcGroups.Add(GroupName)
MoniterOPcGroup.IsActive = True
MoniterOPcGroup.IsSubscribed = True
End If

End Sub
我在调用这个过程时。。编译的时提示 Expected function or variable
就是标记这个地方有问题MoniterOpcSever.Disconnect、、但是我看别人的例子怎么没问题了。。。
请各位大大指点