comTabulky - ovladaci prvek ComboBox
JmenoDatabaze - promenna String, cesta k souboru s databazi
dbData - ovladaci prvek Data  

Privat Sub NactiTabulky()    
	' Otevreni databaze
	Set db = DBEngine.Workspaces(0).OpenDatabase(JmenoDatabaze)

	' Priradi jmeno databaze ovladacimu prvku
	dbData.DatabaseName = JmenoDatabaze
    
    	' Nacteni tabulek
	For i = 0 To db.TableDefs.Count - 1
        	' Systemove tabulky zacinaji MS - jsou vynechany
        	If Left(db.TableDefs(i).Name, 2) <> "MS" Then
            		comTabulky.AddItem db.TableDefs(i).Name
	        End If
	Next i
End Sub

'Handler udalosti pro comTabulky

Private Sub comTabulky_Click()
	' Vybrana tabulka ze seznamu se nastavi jako 
	vlastnost RecordSource
	' ovladaciho prvku Data

	dbData.RecordSource = comTabulky.List(comTabulky.ListIndex)
End Sub