‘Cyklus který se opakuje

tolikrát dokud je hodnota EOF ‘objektu dbRecordset False
Do Until dbRecordset.EOF
‘Přidá do objektu List1 vždy hodnotu z aktuálního záznamu z pole „Pole1“
List1.AddItem dbRecordset.Fields("Pole1").Value
‘Přesune se v databázi na další záznam
dbRecordset.MoveNext
Loop

Práce se soubory
 práce se soubory se provádí pomocí standardních ovládacích prvků DriveListBox, DirListBox a FileListBox
 tyto objekty se spolu navzájem prováží a to tak, že objekt DriveListBox předá objektu DirListBox označení vybraného disku (a to takto DirListBox.Path=DriveListBox.Drive)
 dále objekt DirListBox předá hodtou Path objektu FileListBox, ve které je uloženy cesta vybraného adresáře (a to takto FileListBox.Path = DirListBox.Path)
 a pomocí objektu FileListBox se dá již normálně pracovat se s vybranými soubory a to na stejném principu jako se pracuje s ovládacím prvkem ListBox
 poznámka : všechny tyto příkazy se pro funkčnost programu musí psát do události Change


Private Sub Dir1_Change() ‘OP DirListBox se jmenuje Dir1
File1.Path = Dir1.Path ‘OP FileListBox se jmenuje File1
End Sub

Private Sub Drive1_Change() ‘OP DriveListBox se jmenuje Drive1
Dir1.Path = Drive1.Drive
End Sub