>with Components[ii] as TIB_BDataset do
> Components[ii].Open //Undeclared identifier "Open"

Just a simple typo which Helen surprisingly forgot to notice in her reply
(or maybe I'm misunderstanding something - it wouldn't be the first time).
Simply change to

with Components[ii] as TIB_BDataset do
Open

HTH,
Set