Trouble With Passing Values To Stored Procedure

Hi All,
 
I'm a newbie learning windows applications in visual basic express edition, am using sqlexpress 2005

 So i have a log in form with username and password text fields.
the form passes these values to stored procedure 'CheckUser'
 
Checkuser then returns a value for groupid. If its 1 they are normal user, if its 2 its admin user.
 Then opens another form called Organisations, and closes the log in form. However when i run the project, and enter a username and password and press ok ti tells me that there is incorrect syntax beside a line.
 I have no idea, and I'm sure that there is probably other things wrong in there.
 
here is the code for the login button click event:
 
 Public Class Login

Dim connString As String = "server = .SQL2005;" & "integrated security = true;" & "database = EVOC"
'Dim connString As String = _
'"server = .sqlexpress;" _
'& "database = EVOC;" _
'& "integrated security = true;"




Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login_Log_In.Click
' Create connection
Dim conn As SqlConnection = New SqlConnection(connString)
' Create command

Dim cmd As SqlCommand = New SqlCommand()
cmd.Connection = conn
cmd.CommandText = "CheckUser"

Dim inparam1 As SqlParameter = cmd.Parameters.Add("@Username", SqlDbType.NVarChar)
inparam1.Value = Login_Username.ToString
Dim inparam2 As SqlParameter = cmd.Parameters.Add("@Password", SqlDbType.NVarChar)
inparam2.Value = Login_Password.ToString

inparam1.Direction = ParameterDirection.Input
inparam2.Direction = ParameterDirection.Input

'Return value
Dim return_value As SqlParameter = cmd.Parameters.Add("@return_value", SqlDbType.Int)
return_value.Direction = ParameterDirection.ReturnValue
cmd.Connection.Open()
Dim rdr As SqlDataReader = cmd.ExecuteReader


Dim groupID As Integer

groupID = return_value.Value

If groupID < 0 Then
MessageBox.Show("Access is Denied")

Else
Dim Username = Me.Login_Username

Dim org As New Organisations
org.Show()
End If

conn.Close()



End Sub
 
The stored procedure code is ok as i know it works as it should, but if it helps the code is:
 ALTER PROCEDURE [dbo].[CheckUser]
-- Add the parameters for the stored procedure here
@UserName nvarchar(50) = N'',
@Password nvarchar(50) = N''
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;

-- Insert statements for procedure here
IF (SELECT COUNT(*) FROM dbo.EVOC_Users WHERE Username=@Username AND Password=@Password)=1
BEGIN
PRINT 'User ' + @Username + ' exists'
SELECT TOP 1 UserGroup FROM dbo.EVOC_Users WHERE Username=@Username AND Password=@Password
RETURN (SELECT TOP 1 UserGroup FROM dbo.EVOC_Users WHERE Username=@Username AND Password=@Password)
END
ELSE
BEGIN
PRINT 'User ' + @Username + ' does not exist'
RETURN (-1)
END
END

 
All help greatly appreciated to get me past this first hurdle in my first application!!
 
Cheers
Tom