HELP using reporting services on hosting company

I need some serious help and I am at my wits end:

I am using webhost4life and using their reporting services. I am 'trying' to create a simple aspx page with the web report viewer and point to a report on the server. I found some code on this news group (see below) regarding passing credentials but I am still getting access denied in the report viewer. Can any please help me

Imports Microsoft.VisualBasic
Imports com.mysite4now.sql332reporting
Imports Microsoft.Reporting.WebForms
Imports System.Security.Principal

Partial Class reportviewer
Inherits System.Web.UI.Page
Public Class ReportViewerCredentials
Implements IReportServerCredentials
Private _userName As String
Private _password As String
Private _domain As String

Public Sub New(ByVal userName As String, ByVal password As String, ByVal domain As String)
_userName = userName
_password = password
_domain = domain
End Sub

Public ReadOnly Property ImpersonationUser() As System.Security.Principal.WindowsIdentity Implements Microsoft.Reporting.WebForms.IReportServerCredentials.ImpersonationUser
Get
Return Nothing
End Get
End Property

Public ReadOnly Property NetworkCredentials() As System.Net.ICredentials Implements Microsoft.Reporting.WebForms.IReportServerCredentials.NetworkCredentials
Get
Return New Net.NetworkCredential(_userName, _password, _domain)
End Get
End Property

Public Function GetFormsCredentials(ByRef authCookie As System.Net.Cookie, ByRef userName As String, ByRef password As String, ByRef authority As String) As Boolean Implements Microsoft.Reporting.WebForms.IReportServerCredentials.GetFormsCredentials
userName = _userName
password = _password
authority = _domain
Return Nothing
End Function

End Class

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim rs As New ReportingService
rs.LogonUser("tonystoker", "stoker31", "")
ReportViewer1.ServerReport.ReportServerCredentials = New ReportViewerCredentials("sql332\tonystoker", "Stoker31", "")
ReportViewer1.ServerReport.ReportServerUrl = New Uri("http://sql332reporting.mysite4now.com/reports")
ReportViewer1.ServerReport.ReportPath = "/PAData/General Ledger Summary Report"
ReportViewer1.ShowReportBody = True
ReportViewer1.Visible = True

End Sub

End Class