Private Sub Form_Load()
DoCmd.Maximize
Me.Image56.Picture = "K:\Staff Folders\JinLong\New Folder\default.jpg"
End Sub
Private Sub Image56_Click()
Dim DBpath As String
If [Yield Trend Chart].Value Is Not Null Then
DBpath = [Yield Trend Chart]
Me.Image56.Picture = DBpath
Else...