紧急求组！

小弟写一个winsock通信程序
程序如下
Private Sub Command1_Click()   If Me.Winsock1.State <> sckClosed Then Me.Winsock1.Close
    Me.Winsock1.Connect "127.0.0.1", 2000
    Me.Timer1.Enabled = False
End SubPrivate Sub Command2_Click()
If Me.Winsock1.State <> sckClosed Then Me.Winsock1.Close
    Me.Winsock1.Connect "192.168.1.111", 2000
End SubPrivate Sub Form_Load()
    Me.Winsock2.Listen
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Me.Winsock1.Close
    Me.Winsock2.Close
End SubPrivate Sub Winsock1_Connect()
    Me.Winsock1.SendData CStr(Now)
End SubPrivate Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
    If Me.Winsock2.State <> sckClosed Then Me.Winsock2.Close
    Me.Winsock2.Accept requestID
End SubPrivate Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim strsql As String
    Me.Winsock2.GetData strsql
    Me.Text1.Text = strsql
    Me.Winsock2.SendData "OK"
End SubPrivate Sub Winsock2_SendComplete()
     'Me.Winsock2.Listen
End Sub有个问题，我想每单击一次Command1 都重新连接一次
为什么winsock2_ConnectionRequest 只响应一次，其他单击都没有反应？？？
怎么才能每次单击都响应，谢谢