Dim path_dbf:     path_dbf = "\\Novell\PROHODN\"
    Dim basa_dbf:     basa_dbf = "P110420.DBF"
    Dim cnn:        Set cnn = WScript.CreateObject("ADODB.Connection")
    Dim rst:        Set rst = WScript.CreateObject("ADODB.Recordset")
    cnn.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};" & "DBQ=" & path_dbf & ";" & "DefaultDir=" & path_dbf & "\"
    cnn.Open
    rst.Open "SELECT * FROM " & basa_dbf, cn

'----------------------------------------------------------------Подключаем сетевой диск Х -------------------------------------
     MapDrv "X:", "\\S10\vol1\USERS\K05\ARXPROX"
'--------------------------------------------------------------------------------------------------------------------------------

'--------------------------------------------------------------------------------начало Функции подключения сетевого диска------
 Function MapDrv(DrvLet, UNCPath)  

     Dim WshNetwork,objFSO          ' Object variable  
     Dim Msg  
  
     Set WshNetwork = WScript.CreateObject("WScript.Network")  
     Set objFSO = CreateObject("Scripting.FileSystemObject")
  
     'On Error Resume Next  
  
     If objFSO.DriveExists(DrvLet) Then  
         WshNetwork.RemoveNetworkDrive DrvLet, true, true
     End If
        
     WshNetwork.MapNetworkDrive DrvLet, UNCPath, False, "02062t", "02062t"  
      
    Select Case Err.Number  
         Case  0             ' No error  #  
         Case - 2147023694   
             WshNetwork.RemoveNetworkDrive DrvLet, true, true
             WshNetwork.MapNetworkDrive DrvLet, UNCPath  
                
         Case - 2147024811   
             WshNetwork.RemoveNetworkDrive DrvLet, true, true  
             WshNetwork.MapNetworkDrive DrvLet, UNCPath  
  
         Case Else  
           
             Msg = "Mapping network drive error: " & _  
                   CStr(Err.Number) & " 0x" & Hex(Err.Number) & vbCrLf & _  
                 "Error description: " & Err.Description & vbCrLf  
           Msg = Msg & "Domain: " & WshNetwork.UserDomain & vbCrLf  
             Msg = Msg & "Computer Name: " & WshNetwork.ComputerName & vbCrLf  
             Msg = Msg & "User Name: " & WshNetwork.UserName & vbCrLf & vbCrLf  
             Msg = Msg & "Device name: " & DrvLet & vbCrLf  
             Msg = Msg & "Map path: " & UNCPath  
               
     End Select  
 End Function     
'--------------------------------------------------------------------------------конец Функции подключения сетевого диска------