Cannot Store Retrieved Values From Database To Array

is that instead of receiving data from one row and assigning it to the same array Im receiving data from multiple rows, but the information is the same because its from the same one column from the database. The error I keep getting is 'index out of bounds of array'

here is the code

What it does is it loops through once and retrieves the first value from the db then it throw the exception when it goes to retrieve the second value.

Dim qBkNum As String = "SELECT BookingNum FROM Bookings WHERE BookingID = '1'"
Dim bkNum(5) As String
Try

[Code].....