用VB怎样查一个ACCESS表是否存在？

Question

如题谢谢！

Answer 1

select [name] from msysobjects where [name]=你要查找的表

Answer 2

'*********************************************************
'* 名称：TableExists
'* 功能：判断表是否存在(表名)
'* 用法：TableExists(表名) adoCN是一个SQL的连接
'*********************************************************
Public Function TableExists(findTable As String) As Boolean
    Dim rstSchema As New ADODB.Recordset
    Set rstSchema = adoCN.OpenSchema(adSchemaTables)
    rstSchema.Find "TABLE_NAME='" & findTable & "'"
    If rstSchema.EOF Then
      TableExists = False
    Else
      TableExists = True
    End If
    rstSchema.Close
End Function

Answer 3

select [name] from msysobjects where [name]=你要查找的表