Stored Procedure Cannot Work In .NET

Hi, i encounter a problem in the .NET. I have
write the stored prodeure for the registering function and it works
perfectly in the SQL Server. But when i called the stored procedure
from the .NET, it cannot work. Can someone pls help? Thanks!

Stored Procedure Codes:

CREATE PROCEDURE spAddProfile(@MemNRIC CHAR(9), @MemName
VARCHAR(30), @MemPwd VARCHAR(15), @MemDOB DATETIME, @MemEmail
VARCHAR(80), @MemContact VARCHAR(8))
AS

IF EXISTS(SELECT MemNRIC FROM DasMember WHERE MemEmail = @MemEmail)
    --RETURN -200

IF EXISTS(SELECT MemEmail FROM DasMember WHERE MemNRIC = @MemNRIC)
    RETURN -201

IF EXISTS(SELECT DATEDIFF(YEAR, @MemDOB, GETDATE())
    FROM DasMember
    WHERE DATEDIFF(YEAR, @MemDOB, GETDATE()) < 18)
    RETURN -202

INSERT INTO DasMember(MemNRIC, MemName, MemPwd, MemDOB, MemEmail,
MemContact, MemDateJoin) VALUES (@MemNRIC, @MemName, @MemPwd, @MemDOB,
@MemEmail, @MemContact, GETDATE())

IF @@ERROR <> 0
    RETURN @@ERROR

SET @MemNRIC = @@IDENTITY

RETURN

DECLARE @status int
EXEC @status = spAddProfile 'S1234567J', 'Kim', 'kim', '1986-01-01', 'kim@hotmail.com', '611616161'

SELECT 'Status' = @status

When called from .NET, it cannot works.. These are the codes:

Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim connStr As String =
System.Configuration.ConfigurationSettings.AppSettings("SqlConnection.connectionString")

        Dim dbConn As New SqlConnection
        dbConn.ConnectionString = connStr
        Try
            dbConn.Open()
            Dim dbCmd As New SqlCommand
            dbCmd.Connection = dbConn
            dbCmd.CommandType = CommandType.StoredProcedure
            dbCmd.CommandText = "spAddProfile"

            Dim dbParam As SqlParameter
            dbParam = dbCmd.Parameters.Add("@return", SqlDbType.Int)
            dbParam.Direction = ParameterDirection.ReturnValue

            dbParam = dbCmd.Parameters.Add("@MemNRIC", SqlDbType.Char, 9)
            dbParam.Direction = ParameterDirection.Input
            dbParam.Value = txtNRIC.Text

           
dbParam = dbCmd.Parameters.Add("@MemName", SqlDbType.VarChar, 30)
            dbParam.Direction = ParameterDirection.Input
            dbParam.Value = txtName.Text

           
dbParam = dbCmd.Parameters.Add("@MemPwd", SqlDbType.VarChar, 15)
            dbParam.Direction = ParameterDirection.Input
            dbParam.Value = txtPwd.Text

            dbParam = dbCmd.Parameters.Add("@MemDOB", SqlDbType.DateTime)
            dbParam.Direction = ParameterDirection.Input
            dbParam.Value = txtDOB.Text

           
dbParam = dbCmd.Parameters.Add("@MemEmail", SqlDbType.VarChar, 80)
            dbParam.Direction = ParameterDirection.Input
            dbParam.Value = txtEmail.Text

           
dbParam = dbCmd.Parameters.Add("@MemContact", SqlDbType.VarChar, 8)
            dbParam.Direction = ParameterDirection.Input

            dbCmd.ExecuteNonQuery()

            Dim status As Integer
            status = dbCmd.Parameters("@return").Value
            If status = -201 Then
               
lblError.Text = "NRIC already exists!"

            ElseIf status = -202 Then
               
lblError.Text = "You must be at least 18 years to sign up!"

            Else
                lblError.Text = "Success"

            End If

        Catch ex As SqlException
            lblError.Text = ex.Message

        Catch ex As Exception
            lblError.Text = ex.message
        End Try

    End Sub
End Class
 
Can someone pls help? Thanks a lot!! I appreciated it very much!!