Access Denied problem

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _
(ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, _
ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer


    Public Structure NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As String
        Public lpRemoteName As String
        Public lpComment As String
        Public lpProvider As String
    End Structure

    Public Const ForceDisconnect As Integer = 1
    Public Const RESOURCETYPE_DISK As Long = &H1

Dim nr As NETRESOURCE
nr = New NETRESOURCE
        nr.lpRemoteName = UNCPath
        nr.lpLocalName = DriveLetter & ":"
        strUsername = sUserName
        strPassword = sPassword
        nr.dwType = RESOURCETYPE_DISK

        Dim result As Integer
        result = WNetAddConnection2(nr, strPassword, strUsername, 0)
        sError = result

        Select Case result
            Case "53"
                MsgBox("Invalid Network Path" & Environment.NewLine & " The '\' At The End Of The Path Is Not Required", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
            Case "86"
                MsgBox("Invalid Username Or Password Setup", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
        End Select