How to insert a picture

[Dan]

What I am trying to do is send my form in an email with
just the record that is being displayed. I have it so
that the emailing part works, I am just having trouble
setting up the design of the email. I am just sending the
information to outlook from access. What I would like to
do is make it so that I could somehow get a picture of
the what the form looks like with the selected record. Is
there any way to do this? if not how can I tell it to
insert a picture. This is the code that I currently have:

'******begin code******
Dim EmailAddress As String
Dim Subject As String
Dim EmailMessage As String

'Dim Picture As ????

'**create variables for Outlook
Dim objOutlook As Outlook.Application
Dim MyEmail As Outlook.MailItem

'**gathers information from your form. this sets the
string variable to your fields

EmailAddress = Me.Email
Subject = "..."
EmailMessage = Picture & EmailMessage

'***creates an instance of Outlook
Set objOutlook = CreateObject("Outlook.application")
Set MyEmail = objOutlook.CreateItem(olMailItem)

'***creates and sends email

With MyEmail
.To = EmailAddress
.Subject = Subject
.Body = EmailMessage
.Send 'sends the email in Outlook.
End With

'**closes outlook
objOutlook.Quit
Set MyEmail = Nothing

Exit Sub
'****end code****