Sql query to reterieve all tables name from database

dim sql as string
sql= "Select * from sysobjects where Type = 'u'"