Hi, modify your condition to
Dim limit as integer = DsChooseSQsNow.tblChooseSQs.Rows.Count
Do While limit > 0 AND w <= limit
vrSQsNoChosen(w) = DsChooseSQsNow.tblChooseSQs.Rows(w).Item("QNo")
vrTotalSQsChosen = vrTotalSQsChosen + 1
w = w + 1
Loop
Also, check the
DsChooseSQsNow.tblChooseSQs.Rows
if it has a value.
Good luck!