Как активизировать компоненты доступа к данным связанные с определенным TDatabase

for i:=0 to pred(DB1.DataSetCount) do
  {if DataSets.Tag = 1 then}
  DataSets[i].Open;