Hi There,
Have you tried encapsulating your query in a Try... Catch... to capture the error.
Try
de = New DirectoryServices.DirectoryEntry("LDAP://DC=testdomain,DC=local", username, Password)
Catch Ex as Exception
Msgbox("Login Credentials Invalid, Please try again.")
End Catch
From what i can see from your question this is what you are asking?
Regards
Dave