من همیشه از کد زیر استفاده میکنم
If Trim(sn.Text) = ""Then
ErrorProvider1.SetError(sn, " ")
Me.sn.Focus()
ExitSub
Else
ErrorProvider1.SetError(sn, "")
endif