ช่วยผมด้วยครับ อยากจะตรวจสอบข้อมูลก่อนว่ามีหรือไม่ แล้วค่อยเพิ่มข้อมูลครับ

  sqlstr = "insert into e_std_detail_1 (topicID,วันที่สอบ,เวลา,สถานที่,id_กรรมการ) "
            sqlstr &= " Values(@id_type13,@exam_date1,@exam_time1,@place1,@id_cmt1)"

            With comArea
                .CommandText = sqlstr
                .CommandType = CommandType.Text
                .Connection = conn
                .Parameters.Add("@id_type13", SqlDbType.NVarChar).Value = "ค้นคว้าอิสระ" + x
                .Parameters.Add("@exam_date1", SqlDbType.Text).Value = ex_date
                .Parameters.Add("@exam_time1", SqlDbType.NVarChar).Value = ex_time
                .Parameters.Add("@place1", SqlDbType.NVarChar).Value = ex_place
                .Parameters.Add("@id_cmt1", SqlDbType.NVarChar).Value = id_cmt_index
                result = .ExecuteNonQuery()

            End With
            If result = 0 Then
                sqlstr = ""
                sqlstr = "UPDATE  e_std_detail_1 set "
                sqlstr &= " topicID=@id_type12,วันที่สอบ=@exam_date,เวลา=@exam_time,"
                sqlstr &= " สถานที่=@place,id_กรรมการ=@id_cmt"
                sqlstr &= " WHERE (topicID=@id_type12)"
                With comArea
                    .CommandText = sqlstr
                    .CommandType = CommandType.Text
                    .Connection = conn
                    .Parameters.Clear()

                    .Parameters.Add("@id_type12", SqlDbType.NVarChar).Value = "ค้นคว้าอิสระ" + x
                    .Parameters.Add("@exam_date", SqlDbType.Text).Value = ex_date
                    .Parameters.Add("@exam_time", SqlDbType.NVarChar).Value = ex_time
                    .Parameters.Add("@place", SqlDbType.NVarChar).Value = ex_place
                    .Parameters.Add("@id_cmt", SqlDbType.NVarChar).Value = id_cmt_index
                    .ExecuteNonQuery()
                End With
            End If