many thanks.
My codes are as following:
Sub UpdateIndexes()
Dim rec As DAO.Recordset, inad1 As Address, i As Integer,
Set db = CurrentDb
Set rec = db.OpenRecordset("tblIndex")
inad1.Wbook = "\\c\file\*.xls"
Excel.Workbooks.Open inad1.Wbook, False, True...