VB.Net调用存储过程并得到返回值

//存储过程代码CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNumvarchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))ASInsert Into SMB_InvoiceInfo (MemberID,ClaimMethod,InvoiceNum,InvoiceDate,InvoiceCity) Values(@sUserID,@sClaimMethod,@sInvoiceNum,@sInvoiceDate,@sBuyCity)return @@IDENTITYGO//调用存储过程代码Dim CN As New SqlConnection()Dim InvoiceID As StringTryCN.ConnectionString = DBConStrCN.Open()Dim CMD As SqlCommandCMD = New SqlCommand(AddNewInvoiceInfo, CN)CMD.CommandType = CommandType.StoredProcedureCMD.Parameters.Add(New SqlParameter(@sUserID, SqlDbType.Int))CMD.Parameters(@sUserID).Value = CInt(UserID.Text)CMD.Parameters.Add(New SqlParameter(@sClaimMethod, SqlDbType.VarChar, 50))CMD.Parameters(@sClaimMethod).Value = TransName.TextCMD.Parameters.Add(New SqlParameter(@sInvoiceNum, SqlDbType.VarChar, 50))CMD.Parameters(@sInvoiceNum).Value = InvoiceNum.TextCMD.Parameters.Add(New SqlParameter(@sInvoiceDate, SqlDbType.DateTime))CMD.Parameters(@sInvoiceDate).Value = InvoiceDate.SelectedDate.DateCMD.Parameters.Add(New SqlParameter(@sBuyCity, SqlDbType.VarChar, 50))CMD.Parameters(@sBuyCity).Value = BuyCity.TextCMD.Parameters.Add(New SqlParameter(@sInvoiceID, SqlDbType.Int))CMD.Parameters(@sInvoiceID).Direction = ParameterDirection.ReturnValueCMD.ExecuteNonQuery()InvoiceID = CMD.Parameters(@sInvoiceID).Value.ToString()CMD.Dispose()Catch ex As ExceptionResponse.Write(ex.ToString())FinallyCN.Close()End Try