'in the class module put..
Private blnTableExists As Boolean
Property Get TestForTable() As Boolean
TestForTable = blnTableExists
End Property
Property Let TestForTable(strTableName)
On Error Resume Next
strName = DBEngine(0)(0).TableDefs(strTablename).Name
If Err.Number = 0 Then
blnTableExists = True
Else
Err.Clear
blnTableExists = False
End If
End Property
'in the module set the reference to the class module and exit if the first property is false
Dim MyClass As New ClassName
If TestForTable("TableName") Then
'Code to perform on success
End If
Set MyClass = Nothing 'Terminate the class