Dim mydb As DAO.Database
Dim myq As DAO.TableDef
Set mydb = CurrentDb
For Each myq In mydb.TableDefs
 If Not IsNull(myq.Connect) Then Debug.Print myq.Name; "   "; myq.Connect; "   "; myq.SourceTableName
Next myq

Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("d:\tula.xls")
For Each mysheet In MyWo.Worksheets
   Debug.Print mysheet.Name
Next mysheet
MyWo.Close
Set MyWo = Nothing
Set myOlApp = Nothing