I'm sure the file exists there
just for my sake place
Code:
  If Len(Dir(App.Path & "\MyReport.rpt")) > 0 Then
    MsgBox "Got the file"
  Else
    MsgBox "No luck dude. See there is no file"
  End If
before
Code:
    Set oReport = oApp.OpenReport(App.Path & "\MyReport.rpt", 1)
Just one more thing (actually two)
1. Are you sure you added (using Projects->components..) the Crystal Reports Viewer Control (very important)
2.oApp.OpenReport(App.Path & "\MyReport.rpt", 1) is the 1 necessary? can't you just leave it out

if you don't mind, can you please give me a link which show me how to open CR8.5 crosstab report using VB6
are we not on this sub all along?