Remove the first two lines:
"DECLARE @PartyID INT " + vbCrLf + _
"SET @PartyID = 16482594 " + vbCrLf + _
Then add your PartyID as a parameter to the SqlCommand when you actually use it:
Using con As New SqlConnection(strConnect)
Dim myValue As Integer = 12345
con.Open()
Using cmd As New SqlCommand(strSQL, con)
cmd.Parameters.AddWithValue("@PartyID", myValue)
Using reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
...
End While
End Using
End Using
End Using
Don't pass the string value to your method and try to concatenate it - that way is far too dangerous: read up on SQL Injection and you'll see what I mean.