i think dis is part of the codes for the trivia i need just trying figure out how make work Use this construct for looping through Access recordsets:
Do while Not rst.EOF If rst![MyField] <> Something Then 'The real loop exit condition. Exit Do End If ' Rest of your code here. rst.MoveNext Loop
This would, for instance, work in any VBA environment. Depending on the nature of your VB6 app (standalone vs add-on), this option may be available to you.
Public Sub delay(PauseTime as integer) Dim start As single start = Timer Do While Timer < start + PauseTime If (Timer < start) Then 'midnight crossover start = start - (86400 + 1)