DBPix Sample Source Code: frmZoomSubImg Back to sample Option Explicit Private Sub Form_Current() Dim ImgPath As String ImgPath = GetImgFolder & "\images\sub\" & Me!ImageId & ".jpg" If Dir(ImgPath) <> vbNullString Then DBPixSubZoom.ImageViewFile ImgPath Else DBPixSubZoom.ImageViewBlob (Null) End If End Sub Back to sample