>There is a way to use all the tables of specific database again in 0 by one\two command\s?
>Thanks in advance

Chaim,
try something like

Local lcDBC, lnLen, laTables[1], i

lcDBC = JustStem(Dbc())
lnLen = ADBObjects(laTables, "TABLE")
For i=1 to lnLen
	USE lcDBC+"!"+laTables[i] in 0
EndFor