Evet haklısınız.

ys.Fields.Count burayı ben recordcount diye görmüşüm genelde satırlar arası döngü kurulduğu için dikkat etmemişim.

For i = 0 To ys.RecordCount - 1 demek istediğim böyleydi.Ama siz başlıklarsa döngü yapmışınız.

Teşekkürler arkadaşlar