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
' 表存在
fExistTable = True
Exit For
End If
Next i
Set db = Nothing
End Function