一个关于WINSOCK的问题

我做了个连接按钮 ，点击的时候向服务器端进行连接 
但是在调试的过程中出现 40020的错误 说我当前操作无效

然后显示出我按钮里的语句 XXX.connect
请问怎么办啊。。？作为一个新手感到压力大。。

Winsock没有关闭时连接会报错，得先关闭
VB code

If Winsock1.State <> sckClosed Then Winsock1.Close '连接前先判断Winsock的状态，如果不是关闭状态则关闭
Winsock1.RemoteHost = "http://www.baidu.com"
Winsock1.RemotePort = 80
Winsock1.Connect