Call ModNetUse.Connect("192.168.1.1\d", "V:")

Call ModNetUse.Connect("192.168.1.1\d", "V:", "", "")

Option Compare Database
Option Explicit
Private Declare PtrSafe Function AgKlasorBaglama Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpRemoteName As String, ByVal lpPassword As String, ByVal lpLocalName As String) As Long
Public Declare PtrSafe Function BagSil Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long
Const SurucuAdi As String = "R:"
Const SurucuYeri As String = "\\SUNUCU\Paylasim\Klasor_A"
Const SurucuParola As String = ""
Sub BaglaBirak(NeYapayim as Long)
if NeYapayim =0 Then Call AgKlasorBaglama(SurucuYeri, SurucuParola, SurucuAdi)
if NeYapayim =1 Then Call BagSil(SurucuAdi, &H1, True)
End Sub