Access - ayuda con este código!!

Wenas amig@s!!
Mi problema es el siguiente: quiero que el programa de acces me diga si el usuario trabaja o no. dentro de un cuadro de texto e puesto el siguiente código:
Private Sub Texto10_Click()
con_contrato As String
If Ocupación = con_contrato Then
Texto10 = si
Else
Texto10 = no
End If
End Sub
Pero me dice que la instruccion no es vàlida fuera del bloque type. ¿Alguien me puede ayudar diciendo que es lo que sta mal?
Muchas gracias de antemano
Saludos!

eeii
xa empezar k vale con_contrato ????
Ocupación -> kn acento .... ufff te la juegas .....
Texto10 -> a no ser k sea un boton d opciones, (y aun asi no funcionaria). Tienes ke pasarle un string ... "si" <<<== x ejemplo.

enga, suerte