Function fExistTable(strTableName As String) As Integer
            Dim db As Database
            Dim i As Integer
            Set db = DBEngine.Workspaces(0).Databases(0)
            fExistTable = False
            db.TableDefs.Refresh
            For i = 0 To db.TableDefs.Count - 1
            If strTableName = db.TableDefs(i).Name Then
            'Table Exists
            fExistTable = True
            Exit For
            End If
            Next i
            Set db = Nothing
            End Function
            Private Sub 命令0_Click()
            fExistTable
            End Sub

Private Sub 命令0_Click()
            fExistTable（”需判断的已知表名”）
            End Sub

SELECT Count(*) AS Qty
            FROM MSysObjects
            WHERE (((MSysObjects.Name) Like "需判断的已知表名"));