Vba Excel Do While Loop Example In Sql