please what is the error in this code :
Private Sub srvCBO_afterupdate()
Me.email_txtBox.Requery
If Len(Me.srvCBO & "") <> 0 Then
Me.email_txtBox = DLookup("Email_Exp", "t_natexp", "service_con = '" & Me.srvCBO) & ""
Me.email_txtBox = ""
End If
End Sub