export pdf and preview pdf file error

[mta-rmt]

I am trying to get this ilogic code to save a pdf & then allow me to preview it. I keep getting an error with Adobereader 10.0 saying "file can't be opened because it in use by another program"

I'm working witht he code below.

'----------OPEN SAVED PDF--------------------------
zz = MessageBox.Show("Preview PDF ?", "PDF Preview ?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If zz = vbYes Then
Dim shellResult As Double
Dim ProgramFilesPath As String
ProgramFilesPath = Environ("PROGRAMFILES(X86)")
On Error Resume Next
shellResult = Shell(ProgramFilesPath & "\Adobe\Reader 10.0\Reader\AcroRd32.exe" & " " & oDataMedium.FileName, vbNormalFocus)
If shellResult = 0 Then MsgBox ("Launche of Adobe Reader failed.", vbCritical + vbOKOnly )
End If

Any ideas ?