LDAP connection error code {"Unknown error (0x80005000)"}

Dim oEntry As DirectoryEntry
Dim path As String = "ldap://10.0.17.79:389/dc=maxcrc,dc=com"
Dim username As String = "cn=Manager,dc=maxcrc,dc=com"
oEntry = New DirectoryEntry(path, username, "abc")

unable to connect to openLDAP server.

Use LDAP instead of ldap

MSDN says

The section of the Path that identifies the provider (precedes "://") is 
case-sensitive. For example, `"LDAP://"`

Dim path As String = "LDAP://10.0.17.79:389/dc=maxcrc,dc=com"

MSDN