Не могу загрузить информацию с сайта в прогу

GetDataFromHost('http://www.decline.ru/loginuser.asp', 'name=Имя&pass=31415&Id=68483&returnType=RT')

Public Function GetDataFromHost(ByVal sHOST As String, ByVal sQUERY As String) As DataSet
        'возвращает DataSet с данными, полученными с удаленного хоста
        'посылка осуществляется методом POST
        'sHOST - URL страницы, к которой обращаемся
        'sQUERY - сюда пишем параметры (как методом Get: first=1&second=2&...
 
        Dim oReq As HttpWebRequest = CType(WebRequest.Create(sHOST), HttpWebRequest)
        oReq.Method = 'POST' 'Устанавливаем метод POST
        oReq.ContentType = 'application/x-www-form-urlencoded'
        Dim encoding As New ASCIIEncoding()
        Dim byte_arr As Byte() = encoding.GetBytes(sQUERY)
        'Переводим строку в массив байтов
        oReq.ContentLength = byte_arr.Length()
        Dim oStream As Stream = oReq.GetRequestStream()
        oStream.Write(byte_arr, 0, byte_arr.Length)
        'пишем в поток 
        oStream.Close()
 
        'анализируем ответ
        Dim oResponse As HttpWebResponse
        oResponse = oReq.GetResponse()
        Dim DS As New DataSet()
 
        Dim respStream As Stream = oResponse.GetResponseStream()
 
        ' Use the Stream. This example reads the entire response with a 
        ' StreamReader into a string, and then writes the string to the 
        ' console.
        Dim reader As StreamReader = _
          New StreamReader(respStream, encoding.ASCII)
        Dim respHTML As String = reader.ReadToEnd()
        TextBox2.Text = respHTML
        'запихиваем XML в dataSet
        'DS.ReadXml(oResponse.GetResponseStream())
        GetDataFromHost = DS
    End Function