Augmented Reality & Virtual Reality World | 拡張現実と仮想現実の世界

VS2003のソースをVB2005 Exp に変換したら、古い書き方であると警告が発生。
下記のように変更した。
sqlcmd.Parameters.Add  → sqlcmd.Parameters.AddWithValue

------------------------------------------------------------------------------------------------
ストアド呼出し前後の記述(変更後)
------------------------------------------------------------------------------------------------
            sqlpr.Direction = ParameterDirection.ReturnValue
            sqlcmd.Parameters.Add(sqlpr)
            sqlcmd.CommandType = System.Data.CommandType.StoredProcedure
            sqlcmd.CommandTimeout = 0

            sqlcmd.Parameters.AddWithValue("@個人コード", par個人コード)
            sqlcmd.Parameters.AddWithValue("@年", par年)
            sqlcmd.Parameters.AddWithValue("@月", par月)

            SqlConnection_Open(cc.SqlConnection)
            sqlcmd.ExecuteNonQuery()

            ResultVal = CType(sqlpr.Value, Integer)