private sub getCustId()

i = 0
do until rs.eof = true
check1(i).Tag = rs!CustomerID
i = i + 1
rs.movenext
until ' Shouldn't this be 'Loop'
End Sub