OPRAG-OPREG

Private Sub DATA_TOBE_SAVE()         OfdBUKAFILE.Filter = "*.xlsx|*.xlsx|All files(*.*)|*.*"         If OfdBUKAFILE.ShowDialog = Windows.Forms.DialogResult.OK Then             Try                 Conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _                      "Data Source='" & OfdBUKAFILE.FileName & "';Extended Properties=Excel 12.0;")                 DA = New OleDbDataAdapter("SELECT * FROM [FIXED_ORDER_MONTHLY$]", Conn)                 DTTemp = New DataTable                 Conn.Open()                 DA.Fill(DTTemp)                 'Skip Datatable Rows.. ini skip 2 baris...                 Dim BarisBaru As IEnumerable(Of DataRow) = DTTemp.AsEnumerable().Skip(2)                 Dim DT As DataTable = BarisBaru.CopyToDataTable()                 'Skip Datatable Rows.. ini skip 2 baris...                 Dim DT_Check_Upload As New DataTable                 For Each t