HELP! My winsock wont accept any connections

I have got a form set up so that when someone connects to it it will display a small message on the screen

Somehow to winsock it not accept the request

i get an error "Invalid operation at current state"

here is the code
-----------------------------------------------

Private Sub sck_Connect()
sck.SendData "Auth. Complete"
End Sub

Private Sub sck_ConnectionRequest(ByVal requestID As Long)
If sck.State = 2 Then sck.Accept requestID
End Sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim data As String
sck.GetData data
Alert (data)
End Sub


-----------------------------------------
any help will be appreciated

Which is the statement in your code when wrong popup??