存在这个表吗？很急

Question

有DAO：
Dim db As Database
Set db = OpenDatabase("数据库全路径名称")
For i = 0 To db.TableDefs.Count - 1
    If db.TableDefs(i).Name = "表名" Then
        MsgBox "表已存在！"
        Exit For
    End If
Next
db.Close

Answer 1

select * from MSysObjects where type=1 and name="表名"；
if rs.eof and rs.bof then
msgbox "not talbe"
end if

Answer 2

dim db as database
dim df as tabledef
set db=opendatabase(数据库路径与名）
for each df in db.tabledefs
  if df.name="表名“ then
   msgbox "提示信息"
  endif
next df
db.close

Answer 3

Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path;Persist Security Info=False"
rs.Open "select * from table_name", 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