Sub Link_ExcelSheet()
Dim rst As ADODB.Recordset
DoCmd.TransferSpreadsheet acLink, _
acSpreadsheetTypeExcel8, _
"mySheet", _
CurrentProject.Path & "\Regions.xls", _
-1, _
"Regions!A1:B15"
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "mySheet", , , , adCmdTable
End With
Do Until rst.EOF
Debug.Print rst.Fields(0).Value, rst.Fields(1).Value
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub