Code:
Private Sub CMDPHOTO_Click()
With Cdlg
    .FileName = ""
    .Filter = "Image (*.jpg)|*.jpg"
    .ShowOpen
    If Len(.FileName) <> 0 Then
        FN = .FileTitle
        pathpic = .FileName
        Image1.Picture = LoadPicture(.FileName)
    End If
End With
End Sub



Private Sub cmdsave_Click()
Dim dt As String
Dim errflag
...