AVOID DUPLICATE ENTRY TO DATATABLE

 Dim Temukan As DataRow() = DTSumPO.Select("PONUM ='" & vPO & "' AND POQTY = '" & vQTY & "'")
                                        If Temukan.Length = 0 Then
                                            DTSumPO.Rows.Add(vPO, vQTY)
                                        End If