Visual Basic

Dim arrReturn() As Object
Dim SP_NAME As String = "GetIDProc"
Dim RetID As String
Dim Parameters As SqlParameters
Parameters = New SqlParameters { _
                                    SqlAccessor.SqlParameterBuilder("@RetOrderID", _
                                                                    SqlDbType.VarChar, _
                                                                    10, _
                                                                    ParameterDirection.Output) _
                               }
Dim iRow As Integer = SqlAccessor.ExecuteNonQuery(connectionString, _
                                                  SqlAccessor.SqlCommandBuilder(New SqlCommand(SP_NAME), _
                                                                                parameters), _
                                                  CommandType.StoredProcedure, _
                                                  arrReturn)
RetID = IIf(arrReturn(0).Equals(System.DbNull.Value), 0, arrReturn(0)).ToString()

If iRow > 0 Then
    Dim myFormat As String
    Dim d As DateTime = New DateTime()
    orderNum.Text = d.Year.ToString() & "/" & RetID
Else
    orderNum.text = "Cannot Get Details"
End If