set ff=currentdb.openrecordset("select * from aa")
do while not ff.eof
ff1=ff(" year")
DBEngine.CreateDatabase "D:\temp" & ff1 & ".MDB", dbLangGeneral
currentdb.execture "select * into [;database=D:\temp" & ff1 & ".MDB]." & ff1 &
from bb"
loop
try:
set ff=currentdb.openrecordset("select * from aa")
do while not ff.eof
ff1=ff(" year")
DBEngine.CreateDatabase "D:\temp" & ff1 & ".MDB", dbLangGeneral
loop