How To Insert Into A Table With A Uniqueidentifier As Primary Key?

I would like to insert into a table with a primary key that has a uniqueidentifier. I would like it to go up by one each time I execute this insert statement. It would be used as my ReportId

My VB code is this.

Protected Sub btncreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncreate.Click

'set connection string

Dim errstr As String = ""

Dim conn = New SqlConnection("Data Source=.SQLEXPRESS;AttachDbFilename=|DataDirectory|ASPNETDB.MDF;Integrated Security=True;User Instance=True")

'set parameters for SP

Dim cmdcommand = New SqlCommand("sprocInsertNewReport", conn)

cmdcommand.commandtype = CommandType.StoredProcedure

cmdcommand.parameters.add("@UserName", Session("UserName"))

cmdcommand.parameters.add("@Week", vbNull)

cmdcommand.parameters.add("@Date", vbDate)

cmdcommand.parameters.add("@StartTime", vbNull)

cmdcommand.parameters.add("@EndTime", vbNull)

cmdcommand.parameters.add("@HeatTicket", vbNull)

cmdcommand.parameters.add("@Description", vbNull)

cmdcommand.parameters.add("@TakenAs", vbNull)

cmdcommand.parameters.add("@Dinner", vbNull)

cmdcommand.parameters.add("@Hours", vbNull)

cmdcommand.parameters.add("@Rate", vbNull)

cmdcommand.parameters.add("@PayPeriod", vbNull)

cmdcommand.parameters.add("@LastSave", vbNull)

cmdcommand.parameters.add("@Submitted", vbNull)

cmdcommand.parameters.add("@Approved", vbNull)

cmdcommand.parameters.add("@PagerDays", vbNull)

cmdcommand.parameters.add("@ReportEnd", vbNull)

Try

'open connection here

conn.Open()

'Execute stored proc

cmdcommand.ExecuteNonQuery()

Catch ex As Exception

errstr = ""

'An exception occured during processing.

'Print message to log file.

errstr = "Exception: " & ex.Message

Finally

'close the connection immediately

conn.Close()

End Try

If errstr = "" Then

Server.Transfer("TimeSheetEntry.aspx")

End If

My SP looks like this

ALTER PROCEDURE sprocInsertNewReport



@UserName nvarchar(256),

@Week Int,

@Date Datetime,

@StartTime Datetime,

@EndTime DateTime,

@HeatTicket int,

@Description nvarchar(max),

@TakenAs nchar(10),

@Dinner Nchar(10),

@Hours Float,

@Rate Float,

@PayPeriod int,

@LastSave Datetime,

@Submitted Datetime,

@Approved DateTime,

@PagerDays int,

@ReportEnd DateTime

AS

INSERT INTO

ReportDetails

(

rpUserName,

rpWeek,

rpDate,

rpStartTime,

rpEndTime,

rpHeatTicket,

rpTicketDescription,

rpTakenAs,

rpDinnerPremium,

rpHours,

rpRate,

rpPayPeriod,

rpLastSaveDate,

rpSubmittedDate,

rpApprovedDate,

rpPagerDays,

rpReportDueDate

)

VALUES

(

@Username,

@Week,

@Date,

@StartTime,

@EndTime,

@HeatTicket,

@Description,

@TakenAs,

@Dinner,

@Hours,

@Rate,

@PayPeriod,

@LastSave,

@Submitted,

@Approved,

@PagerDays,

@ReportEnd

)

RETURN

Any Ideas?

thx!