You are telling the program this: 'If you are connected, connect.' That makes no sense. :)
Should be like this.
If cntoServer.state <> sckConnected then
cntoServer.Connect
End if
Or:
If Not cntoServer.state = sckConnected Then
cntoServer.Connect
End If
<> mean Not Equal To
Good Luck.