Have you been asked not to post code as image? Copy/paste code between CODE tags - the # button on the post editor.
Proper indentation would make your code easier to follow.
Looks like SELECT CASE would be appropriate structure.
Does that query have only one record?
Code:
Select Case DLookup("Uspele_IDb", "q01LoggedInUser")
Case 66
'do this
Case 67
'do this
Case 68
'do this
End Select
or
Code:
Dim intIDb As Integer
intIDB = Nz(DLookup("Uspele_IDb", "q01LoggedInUser"),0)
With Me
.btn15Enable.Enabled = intIDb = 66
.btn16DeleteOne.Enabled = intIDb = 66
.btn07Progamming.Enabled = intIDb = 66
End With