Como cierro mi base automáticamente después de limitar los registros en access

Después de limitar mis registros en access; en el generador de expresiones; como hago ahora para que cierre la base de datos automáticamente y no me permita ingresar ni un solo registro. Gracias

Ejemplo:

Private Sub Form_BeforeInsert(Cancel As Integer)

If DCount("*", "BASE DATOS") = 35 Then
MsgBox "NO PERMITE INGRESAR MAS REGISTROS, VALIDA CON EL ADMINISTRADOR"
Me.Undo
End If

End Sub