dim ar as ADODB.recordset set ar=new adodb.recordset ar.open {SQL Statement} do while not ar.EOF label.Caption=label.Caption & ar.Field(0).value ar.movenext loop
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)