Verweis Problem-Kann das Script nicht laufen lassen

Hallo Gemeinschaft,

habe folgendes Problem - kann das Script nicht starten

Private Sub Rechteck124_Click()
Dim strSQL As String


Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDatei As String, strWhere As String

Set db = CurrentDb

Fehler beim Kompilieren:

Benutzerdefinierter Typ nicht definiert

kann unter Verweise das DAO36 nicht aktivieren - Fehler beim Laden einer DLL

Access 2016
Windows 10