Аксес, Форма, WinSock компонент.
Для подключения к серверу надо указать порт, хост и вызвать метод conect.
wsock.RemoteHost = "localhost"
wsock.RemotePort = 22000
wsock.connect
Далее хотелось бы сразу начать отправку данных, но необходимо дождаться соединения.
While not(wsock.state=7) ' state 7 = Connected
Wend
если написать так, то все намертво виснет
Задержка какая-либо тоже не помогает. Единствееный вариант - показать окошко Msg Box "Press Enter"

После него все нормально.
Так же работает вариант, когда конект вызывается понажатию одной кнопки, а отправка данных - по другой.
Мне же необходимо, что бы по нажатию на кнопку происходило соединение с сервером, отправка данных, получение результата и закрытие соединения(с закрытием аналогичная проблема, если не пставить перед ним вызов окошка, тоданны не приходят или не успевают).

Спасибо.
DoEvents помогло.