如何优化此代码？在线等等。

Question

如何优化此代码，如果不优化的话可能要几个小时才能添加完。
Dim intI, intJ, intK, intL, intM, intN, intO As Integer
For intI = 0 To 9
    For intJ = 0 To 9
        For intK = 0 To 9
            For intL = 0 To 9
                For intM = 0 To 9
                    For intN = 0 To 9
                        For intO = 0 To 9
                            Adodc1.Recordset.AddNew
                   Adodc1.Recordset!code = intI & intJ & intK & intL & intM & intN & intO
                            Adodc1.Recordset.Update
                            ProgressBar1.Value = ProgressBar1.Value + 1
                        Next intO
                    Next intN
                Next intM
            Next intL
        Next intK
    Next intJ
Next intI

Answer 1

狂晕：Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 9999999
  Adodc1.Recordset.AddNew
   Adodc1.Recordset!code = Right("0000000" & i, 7)
   Adodc1.Recordset.Update
   ProgressBar1.Value = i
   Next
End Sub