Skaf server data

jeg har sat i næsten 2 timer og kæmpet med winsock nu i visual basic. Mit problem ligger i at jeg prøver at lave et lille prog der skaffer data fra en CS(Counter Strike) server og skriver dem indtil videre ser min kode såen her ud:
Private Sub Form_Load()
Winsock1.Connect "217.157.203.214", 27015
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
Label1.Caption = strData
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Number & " " & Description
End Sub
men inden den får nogen data overhovedet får jeg en error der siger "Connection is forcefully rejected" der er ikke password på serveren men tror det er noget med deres WON tjekke system nogen der kender en måde at skaffe de data på? azzo F.eks kills navne timeleft o.s.v...