Mapping Network Drive

Hi All,

I would like map a network drive by connecting with different username & password.

I try this:

Private Const CONNECT_UPDATE_PROFILE = &H1

Private Const RESOURCE_CONNECTED As Long = &H1&
Private Const RESOURCE_GLOBALNET As Long = &H2&
Private Const RESOURCETYPE_DISK As Long = &H1&
Private Const RESOURCEDISPLAYTYPE_SHARE& = &H3
Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1&

Private Declare Function WNetAddConnection2 Lib "mpr.dll" _
  Alias "WNetAddConnection2A" (lpNetResource As NETCONNECT, _
  ByVal lpPassword As String, ByVal lpUserName As String, _
  ByVal dwFlags As Long) As Long
 
Private Type NETCONNECT
   dwScope As Long
   dwType As Long
   dwDisplayType As Long
   dwUsage As Long
   lpLocalName As String
   lpRemoteName As String
   lpComment As String
   lpProvider As String
End Type

Public Function MapDrive(LocalDrive As String, _
  RemoteDrive As String, Optional Username As String, _
  Optional Password As String) As Boolean

On Error GoTo Handler:

   Dim NetR As NETCONNECT

   NetR.dwScope = RESOURCE_GLOBALNET
   NetR.dwType = RESOURCETYPE_ANY
   NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
   NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
   NetR.lpLocalName = Left$(LocalDrive, 1) & ":"
   NetR.lpRemoteName = RemoteDrive
   MapDrive = (WNetAddConnection2(NetR, Username, Password, _
       CONNECT_UPDATE_PROFILE) = 0)

End Function


I found I cannot map a drive by providing username & password.

I can estabilish a connection by inputting the
local drive & remote drive only.

How can I solve this problem?
Thanks!