If IsNull(DLookup("[NBK]", "Employees", "[Status]=1")) Then
Retval = MsgBox("Login information not found - Please choose your role manually", vbOKOnly, "Login Error")
     Else
log = DLookup("[NBK]", "Employees", "[Status]=1")

SQLnbk = " Update tbl_DateTracking SET NBK = "
SQLnbk = SQLnbk & "'" & log & "' WHERE "
SQLnbk = SQLnbk & "CaseId = '" & CaseId & "' AND OCC_Scenario = '" & OCC_Scenario & "';"
End If
DoCmd.RunSQL SQLnbk

If IsNull(DLookup("[NBK]", "Employees", "[Status]=1")) Then
   Retval = MsgBox( _
      "Login information not found - Please choose your role manually", _
      vbOKOnly, "Login Error")
Else
   log = DLookup("[NBK]", "Employees", "[Status]=1")
   Me.txtNBK=log

SQLnbk = " Update tbl_DateTracking SET NBK = "
SQLnbk = SQLnbk & "'" & log & "' WHERE "
SQLnbk = SQLnbk & "UniqueID = " & Me.UniqueID

<...>
CurrentDB.Execute SQLnbk, dbFailOnError