请教各位大侠，如何得到某一数据库里的所有表名。

SQL 语句：
      
      use  DataBase_Name
      GO

      select name from dbo.sysobjects where OBJECTPROPERTY(id, N'IsTable') = 1

在VB中怎么写就不用我说了吧

得看是什么数据库了。

以下是access数据库的。

strConn="DBQ="+server.mappath("../data/tfhg.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then
response.write rsSchema("TABLE_NAME")&"<br>"
end if
rsSchema.movenext
Loop
set objConn=nothing