[VB6] UDP Error

[Hellomy]

I currently use both TCP & UDP connections on my client and server. The client manages to send data to the server via UDP but when the server sends it via UDP to the client, and the client does sckUDP.GetData, it gives "connection is reset by remote side" error. Any help?

EDIT:
Here is my UDP code:

Client:
sckUDP.LocalPort = 5000
sckUDP.RemotePort = txtPort.Text + 1
sckUDP.RemoteHost = txtHost.Text
sckUDP.Bind 5000

Client Arrival:
Dim strData As String
sckUDP.GetData strData, vbString, bytesTotal


Server:
sckUDP.LocalPort = Val(Setting(1)) + 1
sckUDP.RemotePort = 5000


Server Arrival:
Dim strData As String
sckUDP.GetData strData