Dim adCourseBlock As New SqlDataAdapter Dim scmCourseBlockInsert As New SqlCommand With scmCourseBlockInsert .Connection = conn .Transaction = trans .CommandType = CommandType.StoredProcedure .CommandText = "RG_AddCourseBlockData" .Parameters.Add(New SqlParameter("@syear", SqlDbType.NChar, 3)).Value = cbObj.syear .Parameters.Add(New SqlParameter("@semester", SqlDbType.NChar, 1)).Value = cbObj.semester .Parameters.Add(New SqlParameter("@course_open_no", SqlDbType.NChar, 6)).Value = cbObj.course_open_no .Parameters.Add(New SqlParameter("@block_course_no", SqlDbType.NChar, 7)).Value = cbObj.block_course_no .Parameters.Add(New SqlParameter("@score", SqlDbType.SmallInt, 5)).Value = cbObj.score .Parameters.Add(New SqlParameter("@operator_no",