I got this example from the help file in Access.
VB Code:
  1. Sub Command1_Click

  2.     OLE1.Class = "Excel.Sheet"    ' Set class name.

  3.     ' Specify type of object.

  4.     OLE1.OLETypeAllowed = acOLELinked

  5.     ' Specify source file.

  6.     OLE1.SourceDoc = "C:\Excel\Oletext.xls"

  7.     ' Specify data to create link to.

  8.     OLE1.SourceItem = "R1C1:R5C5"

  9.     ' Create linked object.

  10.     OLE1.Action = acOLECreateLink

  11.     ' Adjust control size.

  12.     OLE1.SizeMode = acOLESizeZoom

  13. End Sub