Strul vid optimering

Nu sitter jag som bäst och försöker snabba upp ett accessprojekt här och lägger till lite 'Option Explicit' där det passar. Tyvärr så har något olustigt fel uppstått under tiden och jag har blivit sådär galen man kan bli.

Problemet är att jag har en For Each-loop som ska låsa/öppna ett formulärs text-, combo- och checkboxar.

For Each objTemp in Me.Controls
strX = TypeName(objTemp)
If strX = "TextBox" Or strX = "ComboBox" Or strX = "CheckBox" Then
objTemp.Locked = bReadOnly        ' bReadOnly skickas som 
End If
Next objTemp

Det här fungerade alldeles lysande för ett litet tag sedan, men nu efter mina optimeringsförsök, så uppstår det problem. Med Option Explicit så måste ju alla variabler Dim:as och jag tyckte givetvis att objTemp skulle vara en Control.

Under loopen nu så blir ju strX nu och då TextBox, men inte fanken blir strX = "TextBox" sann för det.

V a r f ö r? :q

Ytterligare en gång har jag lyckats visa min oduglighet... ;)

Svaret på min fråga är att i namnen Textbox, Combobox och Checkbox, så finns det faktiskt inte några B. Således är ju "Textbox" = "TextBox" falskt!

Ibland känner man sig både dum och blind, men jag har ju ivarjefall lyckats spendera några timmar av den här dagen :)