Not sure whether ADbObjects() was mentioned already:

&& Open Database xy
Local lnTables, laTables[1]
lnTables = ADBOBJECTS(laTables,"TABLE")

hth
-Stefan

>Given the below:
>

>dbc2Convert = "\\tpdfiles\data\dfreeman\tip\data\rta\rta.dbc"
>aTables = GetDBCTableNames(dbc2Convert)
>for i = 1 to alen(aTables)
>? aTables(i)
>next
>
>**************************************************************************
>function GetDBCTableNames()
>lparameters myDBC
>select objectname as tablename ;
>from (myDBC) ;
>where objecttype = "Table" ;
>into array A1
>return A1
>

>Why do I get an error that says A1 is not an array? The select produces 6 records.
>
>Thanks