e.g.

*-- open databases - references are for switching between the two, 
*  especially if the two db's have the same name
Open database myNewDatabase
lcNewDB=DBC()

Open database myOldDatabase
lcOldDB=DBC()
ADBObjects(laOld,"Table") && get list of table names from old database

set database to (lcNewDB)
For Each lcTable in laOld
  *-- see if it's in the new database
  If InDBC(lcTable,"Table")
    Use (lcNewDB+"!"+lcTable) alias old_table
    Select 0
    use (lcTable) alias new_table
    append from dbf("old_table")
    *-- clean up as you go
    use in new_table
    use in old_table
  EndIf
Next

>Hi
>
>i want make this
>Thanks
>
>For each table in my new DataBase
>
>See if exist one table with the same name in my old Database
>
>If yes
>
>append for table of new database from table of old database
>
>Else
>
>Endif