把图片放在公共盘里x:\public\piano\图片，里。不管ACCESS用到都能访问这个图片。

Private Sub Form_Current()
  Dim 路径名 As String
  
      Forms!frm_rqLCMOQC!照片图像.Picture = ""                                    '先清除图像
      Forms!frm_rqLCMOQC!错误信息.Caption = ""                                    '清除错误信息
   
    If Not Me.NewRecord Then                                    '如果当前不为新记录
       路径名 = Me!照片文件夹路径 & Me!tcdh & ".jpg"          '生成照片路径名
        Forms!frm_rqLCMOQC!照片图像.Picture = ""                                '清除图像
        If Dir(路径名) <> "" Then                               '判断照片是否存在，如果照片存在
            Forms!frm_rqLCMOQC!照片图像.Picture = 路径名                        '将图片加载到图像控件
        Else                                                    '如果文件不存在
           Forms!frm_rqLCMOQC!错误信息.Caption = "照片未找到。"                '显示错误信息
        End If
    End If
   End Sub
Private Sub Form_Load()
 Me!照片文件夹路径 = CurrentProject.Path & "\图片\"
 '不允许删除、添加、修改
 Me.AllowAdditions = False
 Me.AllowEdits = False
 Me.AllowDeletions = False
 
End Sub
这个代码这能放图片和ACCESS文件放在同一个文件了，怎么才能把图片文件夹放在公共盘了，ACCESS谁边放在都能访问这些图片

点击下载此附件

if bExistsFolder("\\192.168.1.101\public\piano\图片\" & Me.图片1 & ".jpg",2) =True Then
  Me.照片图像.Picture = "\\192.168.1.101\public\piano\图片\" & Me.图片1 & ".jpg" 

end if 

Dim FSO As Object

 Set FSO = CreateObject("Scripting.FileSystemObject") 

Select Case iType Case 1 '文件夹
        If FSO.FolderExists(strPath) Then
            bExistsFolder = True
        End If
    Case 2  '文件

 If FSO.FileExists(strPath) = True Then 

bExistsFolder = True 

End If

 Case Else 

MsgBox "参数传递错误!", vbCritical, "错误" 

Exit Function 

End Select 

Set FSO = Nothing 

End Function