access如何指定区间生成流水号

Private Sub Command8_Click()
    Dim x001(5) As String


    x001(1) = Me.Text_ToNumber
    x001(2) = Me.Text_EndNumber


    x001(0) = "Delete From t_TempProCode"
    CurrentProject.Connection.Execute x001(0)




    For i = x001(1) To x001(2)


        x001(3) = "insert into t_TempProCode(ProCode) values('" & Me.Text_ProCodeQZ & Me.Text_ProCodeWeeks & Format(i, "0000000") & "')"
        CurrentProject.Connection.Execute x001(3)


    Next i


    MsgBox "生成完成！", vbInformation, "提示"




End Sub