I apologize for hurting your feelings. However, as you said "forums were there to help and guide people through problems" which is what I'm trying to do; guide you. Teach you to fish, not give you the fish. You seem to want the fish, so here you go.
Code:
If Len(Dir("\\serverone\quality system\ncr information\consolidated folders\" & Me.Supplier)) > 0 then
Application.FollowHyperlink "\\serverone\quality system\ncr information\consolidated folders\" & Me.Supplier
Else
Msgbox "Path doesn't exist"
End If