Si manejo mas campos en la inserción y tambien los agrego de la manera en que suguieres
Dim consulta As String = "insert into CPU Values (@Num_Serie,@Marca, @Modelo,@ID,@SystemName, @Procesador, @SO, @Ram, @DiscoDuro, @Monitor, @NsMonitor,@ModMonitor, @Teclado, @Nsteclado, @Mouse, @NsMouse, @Usuario, @Ubicación, @Departamento, @Gerencia, @Planta, @TipoAdq,@Fecha)"