Syntax Error Converting The Varchar Value

Hey gurus!


I've got a stored proc I call to obtain user info from a table. I've used the same format (but is slightly different) for another stored proc which works. But this one gives me "Error: System.Data.SqlClient.SqlException: Syntax error converting the varchar value 'SELECT User_UserName AS Username, User_LastLogin AS LastLogin, User_DateCreated AS Created FROM Community_Users WITH(nolock) WHERE (User_CommunityID = '' to a column of data type int. at System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream) at System.Data.SqlClient.SqlCommand.ExecuteReader() at ASP.Recent_Logins_ascx.BindGrid() at ASP.Recent_Logins_ascx.Page_Load(Object Src, EventArgs e) :"





Why is this stored proc converting my SQLStatement to type int???





Here's my stored proc:





CREATE PROCEDURE Community_RecentLogins


(


@CommunityID int,


@SortField nvarchar(75)


)


AS





-- Create a variable @SQLStatement


DECLARE @SQLStatement varchar(255)


SELECT @SQLStatement = 'SELECT User_UserName AS Username, User_LastLogin AS LastLogin, User_DateCreated AS Created FROM Community_Users WITH(nolock) WHERE (User_CommunityID = ''' + @CommunityID + ''') ORDER BY ' + @SortField





-- Execute the SQL statement


EXEC(@SQLStatement)








And here's the (relevant) code in the ascx:





Sub BindGrid()


Dim conPortal as SqlConnection = New SqlConnection(CommunityGlobals.ConnectionString)


Dim cmdGet as SqlCommand = new SqlCommand("Community_RecentLogins", conPortal)


cmdGet.CommandType = CommandType.StoredProcedure


cmdGet.Parameters.Add("@CommunityID", CommunityGlobals.CommunityID)


If SortField = String.Empty Then


cmdGet.Parameters.Add("@SortField", "User_LastLogin DESC")


Else


cmdGet.Parameters.Add("@SortField", SortField & " DESC")


End If


conPortal.Open()


Dim dr as SqlDataReader = cmdGet.ExecuteReader()


LoginGrid.DataSource = dr


LoginGrid.DataBind()


conPortal.Close()


End Sub





Property SortField() As String


Get


Dim o As Object = ViewState("SortField")


If o Is Nothing Then


Return String.Empty


End If


Return CStr(o)


End Get


Set(ByVal Value As String)


ViewState("SortField") = Value


End Set


End Property








Any help is appreciated! Thanks in advance...