How To Reject A Connection Request?

[Apollyon255]

i'm using winsock control with mt project "Auto TImer For Cafe's", The basis for connection for the server from a any client is FCFS, i used a variable "Busy as Boolean" wherein i set to true if the server is busy or connected to one client, and false if finished getting data from clilent and disconnected (after finished), but the prob is, even i filter any connection from other client:

e.g.

Private Sub Link_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Not Busy Then
    Busy = True
    Load Link(1)
    Link(1).Accept requestID
End If
End Sub

still the connection state of the other client set's to sckConnected or 7, what probably the reason, or is there any other technique to filter undesirable connection request??? please help....
any comment or help will gladly appreciate!..

Thankx....