Probeer dit eens
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize , 0
HuidigJaar = DLookup("Jaar", "tblABOS", "Jaar = " & Year(Now))
DoCmd.OpenForm "fABOS", , , "Jaar = " & HuidigJaar
Me.FilterOn = False
RunCommand acCmdRecordsGoToNext
End Sub