Public Function ExistsObject(ByVal strName As Variant, ByVal intType As Integer, Optional dbsExistObject As Database) As Boolean
'Возвращает TRUE если указанный объект существует
'Where intType is:
'1-Tabledef
'5-Querydef
Dim rstSource As Recordset, Strng As String
On Error Resume Next
 Strng = dbsExistObject.NAME
 If Err.Number <>  0  Then Set dbsExistObject = CurrentDb
On Error GoTo ErrExistsObject
If intType =  1  Then
 Strng =  " (Type=1  or Type= 6 ) "
Else
 Strng =  " Type="  & intType
End If
Set rstSource = dbsExistObject.OpenRecordset( "Select * from MSysObjects where (Name='" & strName & "' and "  & Strng &  " )" , dbOpenForwardOnly)
If rstSource.EOF = True Then
 ExistsObject = False
Else
 ExistsObject = True
End If
Exit Function

ErrExistsObject:
 Beep
 MsgBox Err.Description
 ExistsObject = False
End Function