rs.Sort = "Adi_Soyadi"
Do Until rs.EOF
Do Until rs.EOF satırının üstüne rs.Sort = "Adi_Soyadi" kodunu ekleyerek dener misiniz? kodun son hali aşağıdaki gibi olacak