este codigo me carga una tabla y la guardo en otra, el problema es que tarda de 4 a 5seg, en ejecutar el script quisiera saber si se puede optimizar

Código:

Try
            consulta = "SELECT * FROM ventas_cajas"
            dapter.SelectCommand = New OdbcCommand(consulta, conexion)
            ventas_local = New DataTable
            ventas_local = daset.Tables.Add("ventas_local")
            dapter.Fill(ventas_local)
            ventas_local.Clear()

            For Each row As DataRow In cventas_local.Rows
                If row(0) > venta Then
                    fila = ventas_local.NewRow
                    venta = row(0)
                    CEDULA = row(2)
                    codigo = row(7)
                    If row(1) = 11 Then
                        signo = "+"
                    Else
                        If row(1) = 12 Then
                            signo = "-"
                        End If
                    End If

                    cantidad = row(6)
                    fecha = row(3).ToString
                    hora = row(4).ToString
                    vendedor = row(5)
                    fila("venta") = Convert.ToString(venta)
                    fila("cedula") = CEDULA
                    fila("codigo_rubro") = codigo
                    fila("signo") = signo
                    fila("cantidad") = cantidad
                    cant = Convert.ToString(cantidad)
                    fila("fecha") = fecha
                    fila("hora") = hora
                    fila("vendedor") = vendedor

                    ventas_local.Rows.Add(fila)
                    If (Not IsNumeric(venta)) Then
                        MessageBox.Show("Ingres un Valor Numerico...")
                    Else
                        If (Not Existe(Convert.ToInt32(venta))) Then
                            dapter.InsertCommand = New OdbcCommand
                            dapter.InsertCommand.CommandText = "insert into ventas_cajas (venta,cedula,codigo_rubro,signo,cantidad, fecha, hora, vendedor) VALUES ('" + Convert.ToString(venta) + "', '" + CEDULA + "', '" + codigo + "', '" + signo + "', '" + cant + "', '" + fecha + "', '" + hora + "', '" + vendedor + "')"
                            dapter.InsertCommand.Connection = conexion
                            dapter.Update(ventas_local)
                            'data.DataSource = ventas_local
                            'Else
                            '    MessageBox.Show("Registro Ya Existe...")
                        End If
                    End If
                End If
            Next