VB Winsock Woes

I am using VB6 Professional Edition on Windows NT SP 6a. Currently I am implementing a winsock control that connects to a remote port. The remote port is set at "3000" and a fixed IP address. The local port is set to "0" so that we can dynamically connect to the server many times w/o worrying about the reuse of local ports. The problem that I am experiencing is that the first connection to the server is successful while running in IDE. However, after stopping the program and running it again the connection state of this particular control is stuck at a connection state of "6" which means that it is attempting to connect. I've already attempted putting it in a loop while checking the state but it never changes to a state of "7" which means it's connected. Ultimately, when I try to send data at that point I get an error of "40006". I've seen suggestions regarding the use of Active X Controls but am looking for an alternative within the VB 6 deliverable environment. I've also attempted the code on a PC running Windows 95 and VB 6 Enterprise Edition and have seen the same results eliminating the thought of it being an OS problem.