Ayuda con cuadro combinado

Hola experto quisiera saber si me pudieras ayudar
tengo un cuadro combinado con varias opciones que so
recibido, trabajado, pendiente, terminado, entregado, validado
estos campos los estoy jalando de una tabla
y quisiera saber si se puede hacer
que al momento de capturar un dato automáticamente se ponga en recibido
pero ala hora de desplegar el campo combinado si la opción es recibido solo se pueda poner la opción de trabajando
y cuando este en la opción terminado ya no pueda regresarse a la opción de recibido o trabajando
lo estoy checando con un if pero solo lo único que puedo poner son puros mensajes como de advertencia si me pudieras ayudar te lo agradecería
te pongo el código que tengo para ver si me puedes ayudar
Private Sub cbo_status_Change()
Me.txtFecha = Date
Me.TxtObserv = " "
If Me.cbo_status = 5 Then
MsgBox ("El Status ya no se puede modificar, hable con el administrador, para modificaciones"), vbCritical, ("Mensaje")
Me.cbo_status = 5
End If
If Me.cbo_status = 1 Then
MsgBox ("Solo podra accesar a la opcion de trabajando"), vbCritical, ("Mensaje")
Me.cbo_status = 1
End If
If Me.cbo_status = 2 Then
MsgBox ("No podra regresar a las opciones anteriores"), vbCritical, ("Mensaje")
Me.cbo_status = 2
End If
If Me.cbo_status = 3 Then
MsgBox ("solo podra accesar a opciones del status terminado"), vbCritical, ("Mensaje")
Me.cbo_status = 3
End If
If Me.cbo_status = 4 Then
MsgBox ("no podra accesar a la opcion de recibido"), vbCritical, ("Mensaje")
Me.cbo_status = 4
End If
If Me.cbo_status = 6 Then
MsgBox ("hable con la persona encargada del proyecto para saber si ya se entrego"), vbCritical, ("Mensaje")
Me.cbo_status = 6
End If
End Subc
Cada numero es una opción de la tabla
Todo esta echo en formularios de access con poco código de vb