vabbè

Dim sql As String = "INSERT INTO tabella2 (ID, colonna1, colonna2) SELECT ID, campo1, campo2 * 2 as colonna2 FROM tabella1"

ho solo fatto un mix tra la tua e la mia