Application.DBEngine (Access)

You can use the DBEngine property in Visual Basic to access the current DBEngine object and its related properties.

The DBEngine property of the Application object represents the Microsoft Access database engine. The DBEngine object is the top-level object in the Data Access Objects (DAO) model, and it contains and controls all other objects in the hierarchy of Data Access Objects.

Private Sub Command1_Click() 
 DisplayApplicationInfo Me 
End Sub 
 
Function DisplayApplicationInfo(obj As Object) As Integer 
 Dim objApp As Object, intI As Integer, strProps As String 
 On Error Resume Next 
 ' Form Application property. 
 Set objApp = obj.Application 
 MsgBox "Application Visible property = " & objApp.Visible 
 If objApp.UserControl = True Then 
 For intI = 0 To objApp.DBEngine.Properties.Count - 1 
 strProps = strProps & objApp.DBEngine.Properties(intI).Name & ", " 
 Next intI 
 End If 
 MsgBox Left(strProps, Len(strProps) - 2) & ".", vbOK, "DBEngine Properties" 
End Function