Private Sub Command4_Click()
If Me.Text0 = "" Or Dir("\\www.aaaaaaaaa.com\E:\图片文件夹\" & Me.Text0 & ".jpg") = "" Then
Me!Image3.Picture = "\\www.aaaaaaaaa.com\E:\图片文件夹\err.jpg"
Else
Me!Image3.Picture = "\\www.aaaaaaaaa.com\E:\图片文件夹\" & Me!Text0 & ".jpg"
End If
End Sub