คือเพิ่มข้อมูล สมมุติ 01 เพิ่มไปแล้ว แล้วเราใส่ 01 อีกที แล้วกดเพิ่ม อยากจะให้มันเตือนว่ารหัสซ้ำ และให้มันเปลี่ยนรหัสให้ใหม่แล้เพิ่มใหม่ข้อมูลเข้า

Private Sub BnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BnAdd.Click
        If Txtname.Text.Trim = "" Then
            MsgBox("กรุณาป้อนข้อมูล")
            Txtname.Focus()
            Exit Sub
            
        End If
        If TxtID.Text = TxtID.Text  Then ---->ตรงส่วนนี้อยากใช้มันเชคว่าถ้า Id ซ้ำให้มันถามว่าต้องการบันทึกเป็นอันใหม่หรือไม่ประมาณนี้
        Me.GenID()
        End If

        sql = "insert into Brand (BrandID,Brandname) values (@BrandID,@Brandname)"
        com = New SqlCommand
        With com
            .CommandType = CommandType.Text
            .CommandText = sql
            .Connection = cn
            .Parameters.Clear()
            .Parameters.Add("@BrandID", SqlDbType.VarChar).Value = TxtID.Text
            .Parameters.Add("@Brandname", SqlDbType.VarChar).Value = Txtname.Text()
            .ExecuteNonQuery()
        End With

        MsgBox("เพิ่มข้อมูลแล้ว")
        Me.clearData()
        Me.GenID()
        Me.ShowData()
End Sub