1. ประกาศตัวแปรอาร์เรย์ แบบไดนามิก เช่น
Dim MyArray()
2. ในส่วนของการดึงข้อมูลออกมาจาก DB ให้เช็คว่ามีข้อมูลกี่ตัว เพื่อเราจะได้กำหนดขนาดอาร์เรย์ใหม่ เท่ากัยจำนวนที่ดึงมาจาก DB โดยการ ReDim ตัวแปรอาร์เรย์ตัวเดิม เช่น
ReDim MyArray(ตัวแปร์จำนวนข้อมูลจาก DB)
3. วนลูกเก็บข้อมูจาก DB เข้าตัวแปรอาร์เรย์ เช่น
For i = 0 to RSTest.RecordCount - 1
MyArray(i) = RSTest("ชื่อฟิลด์ข้อมูลในตารางที่ต้องการ")
RSTest.MoveNext
Next
4. ลองแสดงข้อมูลในอาร์เรย์ออกมาดู