Mah ... Non credo tu possa fare così. Nel Form_Load devi inizializzare il WinSock e il RecordSet, ma poi non puoi fare qul while, altrimenti come fa il WinSock a fare lo scambio dati ? Devi invece cambiare la funzione DataArrival in modo che dopo aver terminato un invio non chiuda la connessione con il server ma invii il messaggio successivo.