windsock的有关问题,在load()时运行总是出错

windsock的问题,在load()时运行总是出错.
我的代码如下,运行时总会提示如下错误:
实时错误 "40006 ";
所需事物或请求的错误协议或连接状态

Private   Sub   Form_Load()
Winsock1.Close
Winsock1.Connect
Winsock1.SendData   Text1.Text
Winsock1.Close
End   Sub

[解决办法]
Private Sub Form_Load()
Winsock1.Close
Winsock1.Connect

'//加延迟
Winsock1.SendData Text1.Text
Winsock1.Close
End Sub

[解决办法]
1。winsock1_Connect事件 中senedate

2。
Winsock1.Close
Winsock1.Connect

for i=0 to 1000
doevents
if winsock1.state=7 then
Winsock1.SendData Text1.Text
end if
Winsock1.Close