Thanks Veep and thanks clarkin . . .
Honestly I have created a script which is suppose to loop and insert 90,000 records in Access file. Each record has 10 fields!
The script seams to take hours to finish . . This is the script:
-----------------------------------------------------------
do while not(record.EOF)
on error resume next
set car_place=cn.Execute ("select * from detail_codes where master_code=7" & " and Detail_Code=" & record("REGISTRATION_SOURCE"

)
set plate_color=cn.Execute ("select * from detail_codes where master_code=27" & " and Detail_Code=" & record("PLATE_COLOR"

)
set ticket_place=cn.Execute ("select * from detail_codes where master_code=7" & " and Detail_Code=" & record("TICKET_SOURCE"

)
set car_type=cn.Execute ("select * from detail_codes where master_code=20" & " and Detail_Code=" & record("VEHICLE_CLASS"

)
set ticket_amount=cn.Execute ("select * from ticket_fines where ticket_number=" & record("ticket_number"

)
set ticket_type=cn.Execute ("select * from ticket_fines where ticket_number=" & record("ticket_number"

)
set ticket_type2=cn.Execute ("select * from ticket_detail_codes where master_code=1 and detail_code=" & ticket_type("fine_type"

)
set ticket_responsible=cn.Execute ("select * from ticket_detail_codes where master_code=3" & " and Detail_Code=" & record("TICKET_RESPONSIBILITY"

)
set ticket_status=cn.Execute ("SELECT * FROM ticket_detail_codes where master_code=4 and detail_code =" & record("TICKET_STATUS"

)
set rss=cnn.Execute("INSERT INTO the_database (plate_number,car_place,plate_color,tek_place,car_type,tek_type,tek_amount,tek_responsible,tek_status,tek_number,tek_date) values ("&record("plate_number"

&",'"&car_place("DESCRIPTION"

&"','"&plate_color("DESCRIPTION"

&"','"&ticket_place("DESCRIPTION"

&"','"&car_type("DESCRIPTION"

&"','"&ticket_type2("DESCRIPTION"

&"',"&ticket_amount("FINE_AMOUNT"

&",'"&ticket_responsible("DESCRIPTION"

&"','"&ticket_status("DESCRIPTION"

&"',"&record("ticket_number"

&",#"&record("TICKET_DATE"

&"#)"
record.MoveNext
loop