VB高手：利用代码查询数据库中是否存在某一表，如果不存在则建立此表

如果用ADO组件的话
select * from sysobjects where name='表名'。然后根据Recordset对象判断这个语句的返回值。我写详细点吧。
------------------------
set conn=CreateObject("ADODB.Connection")
conn.open "数据库"
set cmd=CreateObject("ADODB.Command")
cmd.activeconnection=conn
cmd.commandtext="select * from sysobjects where name='表名'"
set rs=cmd.execute
if rs.eof and rs.bof '这说明没有你要找的表
cmd.commandtext="create tbale 表名(字段...)"
cmd.execute '创建表
else
exit sub
end if
---------------------------
当然有些细节要自己查查资料

用SQL可以做到..

Private Sub Command1_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim f As Boolean
dim tbname as string
tbname="表名ABC"
db.Open MdbDrv("e:\eb2006.mdb")

Set rs = db.OpenSchema(adSchemaTables)

f = False
Do Until rs.EOF
If UCa