Option Compare Database
Option Explicit
 
Declare Function WNetAddConnection Lib "mpr.dll" Alias _
"WNetAddConnectionA" (ByVal lpszNetPath As String, _
ByVal lpszPassword As String, ByVal lpszLocalName _
As String) As Long
 
Declare Function WNetCancelConnection Lib "mpr.dll" _
Alias "WNetCancelConnectionA" (ByVal lpszName _
As String, ByVal bForce As Long) As Long
 
Const WN_SUCCESS = 0 ' The function was successful.
Const WN_NET_ERROR = 2 ' An error occurred on the network.
Const WN_BAD_PASSWORD = 6 ' The password was invalid.
 
 
Function AddConnection(MyShareName As String, _
                       MyPWD As String, _
                       UseLetter As String) As Integer
 
On Local Error GoTo AddConnection_Err
 
AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
 
AddConnection_End:
  Exit Function
 
AddConnection_Err:
  AddConnection = Err
  MsgBox Error$
  Resume AddConnection_End
End Function
 
 
Function CancelConnection(DriveLetter As String, _
                          Force As Integer) As Integer
 
On Local Error GoTo CancelConnection_Err
 
CancelConnection = WNetCancelConnection(DriveLetter, Force)
 
CancelConnection_End:
  Exit Function
 
CancelConnection_Err:
  CancelConnection = Err
  MsgBox Error$
  Resume CancelConnection_End
End Function

Dim res As Long
Dim zConnected As Boolean
 
    res = AddConnection("DriveUndPfad (ohne letzten '\'", "Passwort im" & _
      "Klartext", "Z:")
    If res <> 0 Then
      MsgBox "Connect Error"
    Else
      Debug.Print _
        "-------------------------------------------------------Connect"
    End If
    zConnected = True

If zConnected Then
  res = CancelConnection("Z:", True)
  If res <> 0 Then
    MsgBox "Deconnect Error"
  End If
End If