inserire record in automatico

[lufo5]

qualcosa di simile?

Sub insRighe(datainizio, datafine)
  
  For dd = 0 To DateDiff("d", datainizio, datafine)
    For aa = 1 To 20
      Sql = "INSERT INTO tabella (data, aula) VALUES (#" & DateAdd("d", dd, datainizio) & "#, '" & aa & "');"
      oConn.Execute Sql
      
    Next
  Next
End Sub