Private Sub Command1_Click()
Dim res As Long
Dim zConnected As Boolean
 
    res = AddConnection("Benutzername", "Passwort", "\\192.168.100.1\C$")
    If res <> 0 Then
      MsgBox "Connect Error"
    Else
      Debug.Print _
        "-------------------------------------------------------Connect"
    End If
    zConnected = True
End Sub