QueryTimeout Property Example (MDB)

The following example sets the QueryTimeout property of the current database:

Sub SetTimeout()
    Dim dbs As Database

    ' Return reference to current database.
    Set dbs = CurrentDb
    dbs.QueryTimeout = 120
    Set dbs = Nothing
End Sub