存在这个表吗？很急

Question

用Ado的方法:
Dim db As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Qn\萍乡数转\TrafficAudit_backup.mdb;Persist Security Info=False"
rs.Open "select * from vehicleinfo", db, adOpenKeyset, adLockOptimistic
Set rs = db.OpenSchema(adSchemaTables)
While Not rs.EOF
    Debug.Print rs!table_name
    Debug.Print rs!table_type
    Debug.Print
    rs.MoveNext
Wend
End Sub

Answer 1

MYACCESS.MDBk中，
用sql语句;
select * from MSysObjects where type=1 and name="表名"；

Answer 2

dim db as database
dim df as tabledef
set db=opendatabase(路径\MYACCESS.MDB）
for each df in db.tabledefs
  if df.name="Table1“ then
   msgbox "存在table1数据表"
  endif
next df
db.close
这段程序绝对好使,已经通过测试

Answer 3

噢差点忘了
你一定要在工程里引用microsoft DAO 3.51 object library
然后在加上我上边给出的程序
哪一定好使：）