Birde şunu yazayım.Yardımcı olan arkadaşın eklediği dosyadaki veriler mesela Altın14 gibi geliyordu.Kıdu incelerseniz en başlarda array içinde yazılı hepsi.Yani o array içinde nasıl yazılıysa o şekilde geliyordu ve bazıları anlamsızdı.Bu yüzden adını unuttuğum bir function yazdım galiba degistir olması gerek adı.O kodun içinede select case ile veriler nasıl isimde gelmesi isteniyorsa o şekilde yazdım.O kısmıda kendinize görede ayarlayabilirsiniz.Access te kod 1 saniyede çalışıyor.