While loop in VB 6.0

[Blaasbalg]

Hallo allemaal,

Ik probeer momenteel een while loop uit te voeren in visual basic om gegevens uit een MySQL database te halen.
Ik heb alleen geen idee hoe ik dit in visual basic zou moeten doen.

Om duidelijk te maken wat ik bedoel zal ik een voorbeeld geven in PHP:

$query = mysql_query("SELECT * FROM tabel WHERE cat='foo'");

while($row = mysql_fetch_array($query)){
echo $row["id"];
}

De while loop gaat dus net zo lang door totdat deze geen gegevens meer van MySQL terug krijgt..
Hoe doe ik dit in visual basic?

Alvast bedankt!

-Thomas