Function AutoGenerate(strStart As Integer, strUP As Integer)
    Dim strSQL As String
    Dim rst As ADODB.Recordset
    '初始化参数为一个新的ADODB型Recordset
    Set rst = New ADODB.Recordset
    
    '把 rst 参数设定为本数据库,并连接
    rst.ActiveConnection = CurrentProject.Connection
    
    rst.Open "TMP_Test", , adOpenKeyset, adLockOptimistic
    
    CurrentDb.Execute "delete from TMP_Test"
    '循环记录集
    Do While strStart <= strUP
        rst.AddNew
        rst!编号 = strStart
        strStart = strStart + 1
        rst.Update
    Loop
    rst.Close
End Function