Private Sub Timer1_Timer()
Dim i As Integer
Dim strLin As String
Dim d() As String
Dim Myd As Integer
Myd = CInt(Day(Date))   '读取计算机的日期


Open App.Path & "\wkzbb.data" For Input As #1    '打开文件读。’...........这个地方怎么改成读取服务器上的地址
   For i = 1 To Myd - 1
      Line Input #1, strLin     '读取一行数据到变量。
   Next i
   Line Input #1, strLin     '读取一行数据到变量。
Close #1

d = Split(strLin, " ")
If CInt(d(0)) <> Myd Then
   MsgBox "检查文件,今日数据错误!"
   End
End If

'显示照片
For i = 0 To 4
   Picture1(i).Picture = LoadPicture(App.Path & "/images/" & d(i + 1) & ".JPG")’...........这个地方怎么改成读取服务器上的地址

Next i
End Sub

你这种的方式，只能让服务器共享 这个文件夹，然后映射成为一个盘符，然后像使用本地硬盘文件一样的使用。

如果你不想让服务器共享，那么就要自己写网络通讯部分，需要写服务器端，
客户端请求文件，然后服务器端就读具体的文件，然后内容全部传过来。

假设服务器IP地址为 168.10.10.20，就把本地的盘符换成 \\168.10.10.20
Open "\\168.10.10.20\wkzbb.data" For Input As #1
另外 d = Split(strLin, " ") 这个语句应该会出错 (类型不比配）

你这样肯定不行的，使用隐含的共享也必须提供具体盘符的，如访问隐含共享盘本机c盘“\\127.0.0.1\c$”。

通常远程服务器会关闭隐含共享的（关闭135和445端口），像这个情况一般是通过innet控件下载到本地再打开。open命令只能打开指定了具体磁盘驱动器的文件，不能打开iis指定的文件

那意思是不能实现哦，换种思路，就让客服端启动的时候到服务器去下载 \wkzbb.data  还有没有其他的方法呢？

服务器上一般会建文件夹(假设ABC)，IP地址下直接连文件夹 \\168.10.10.10\ABC\A.mdb
我就是这么实现的

是吗？那你一定是在局域网里把某台电脑服务器的某个目录设置成了显性共享才行的，但可以肯定，没有任何一个公网服务器会蠢到共享目录的，大多能从公网服务器上获取文件只有通用的两种模式，1是iis提供的下载协议，使用的是80端口，另一种是做ftp服务器，使用的是21端口。只有局域网里会有管理员图方便，使用文件共享模式来提供文件访问的，该模式为netbios协议，使用139、445端口。有经验的管理员一定会在对外的路由器上禁止这两个端口访问的，而有安全意识的个人电脑用户一般会主动关闭这两个端口，防止被入侵。
另外需要更正的你所说的文件夹abc在网络共享模式下访问时就不叫文件夹了，而是叫共享名，这个名称在设置共享时是可以更名的，默认时会使用被共享的文件夹名。