Ein paar kleine Änderungen .....
Dim Db As Database 
Dim dbFile As String 
Dim Index As New Index 
Dim SQL As String 
Dim rs As Recordset 
dbFile = App.Path + "Protokoll.mdb"  <---hier fehlt ein Backslash
Set Db = DBEngine.Workspaces(0).OpenDatabase(dbFile, False, False) 
SQL = "SELECT * FROM Einsatzprotokolle" 
Set rs = Db.OpenRecordset(SQL,dbOpenDynaset) 
Die Anweisung: 
 
SELECT * FROM Einsatzprotokolle WHERE Einsatznummer="1" 
 
muß richtig lauten:
 
"Select * From Einsatzprotokolle Where Einsatznummer = "+Cstr(1)