Hola
Las clausulas select las haces desde un RecordSet xq devuelve un resultado, en el caso de CREATE TABLE, INSERT o UPDATE no devuelve ningún resultado que puedes guardar en el RecordSet, sino que modifica directamente la BD. Por ello para ejecutarlos tendrías que poner db.Execute "..............". P.e.:
Código:
bd.Execute "INSERT INTO Pedido ( vuelta1, vuelta2, vuelta3, total ) SELECT Sum(vuelta1), Sum(vuelta2), Sum(vuelta3), Sum(Total) FROM subproductos WHERE (((subproductos.Producto) Like 'refresco*'))"
.
--Saludos--
P.D. Para indicar la ruta de la bd te recomiendo que mires la opción app.path en lugar de utilizar la ruta completa, ya que si quieres instalar el programa en otro equipo pueda ser que no tenga las mismas rutas.