Opret 2 forbindelser pr. klient på server og husk bruger

Hej eksperter!

Jeg har et klient program som logger på en server. Først og fremmest connecter klienten til serveren, og så kan man på klienten indtaste brugernavn/kodeord.
Jeg vil gerne have at når klienten opretter forbindelse til serveren, opretter den 1 forbindelse til at sende data, og 1 til at modtage.
Når serveren modtager data fra klienten, skal den kunne hive brugernavnet som blev sendt ved login frem, og bruge det til at identificere for eks. oplysninger fra en database...
Her er min kode:
'Client opretter forbindelse til server
    With Winsock
        .Close
        .Connect "212.242.249.5", 80
    End With
-------------------------------------------------------------
'Server godkender forbindelse
Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    intConnection = intConnection + 1
    Load Winsock(intConnection)
    Winsock(intConnection).Accept requestID
 
    Me.Caption = "Server [" & intConnection & " Clients Connected]"
    AddToConsole ("Client Connected from " & Winsock(Index).RemoteHostIP)
    AddToLog ("Client Connected from " & Winsock(Index).RemoteHostIP)
End Sub
-------------------------------------------------------------
'Modtager login oplysninger fra klienten, og decrypterer
    Case "Login"
        strUser = arrSplit(1)
        strPass = arrSplit(2)
        rs.MoveFirst
          Do While rs.EOF = False
            If rs!User = strUser And rs!Password = strPass Then
                Winsock(Index).SendData EncryptText("ACTION|001")
                AddToConsole ("Client Logged in as " & strUser)
                AddToLog ("Client Logged in as " & strUser)
                db.Execute "UPDATE tblProfiles SET LastLogin = '" & rs!NowLogin & "', NowLogin = '" & Now & "', LastIp = '" & rs!NowIp & "', NowIp = '" & Winsock(Index).RemoteHostIP & "', LoginCount = '" & rs!LoginCount + 1 & "' WHERE User = '" & strUser & "'"
                Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data\Profiles.mdb")
                Set rs = db.OpenRecordset("tblProfiles")
                Exit Sub
            End If
        rs.MoveNext
        Loop
        Winsock(Index).SendData EncryptText("ERROR|001")
        AddToConsole ("Invalid login from: " & Winsock(Index).RemoteHostIP)
        AddToLog ("Invalid login from: " & Winsock(Index).RemoteHostIP)

Hvad skal jeg gøre for at løse mine problemer?