VBA Cierre de documento Access

El otro día me ayudaste con una macro para recorrer y cerrar documentos Word abiertos.

¿Cómo podría hacer lo mismo con documentos Access?. Te pongo la función que tengo, pero no me funciona...

Sub CierraWordModo(Texto)
    On Error Resume Next 'Si no está abierto Word, casca...
    Set appWord = GetObject(, "word.application")
    For Each doc In appWord.documents
        nombre = doc.Name
        If InStr(1, nombre, Texto) > 0 Then
            doc.Close False
        End If
    Next
End Sub
Sub CierraAccessModo(Texto)

    On Error Resume Next 'Si no está abierto Access, casca...

    Set appAccess = GetObject(, "Access.application")
    For Each access In appAccess.documents
        nombre = access.Name
        If InStr(1, nombre, Texto) > 0 Then
            access.Close False
        End If
    Next
End Sub