Table Property Question

I have an application with an Access 97 front end and an SQL server back end. In acces 97 I use the code below to determine a tables name and connection string.

Dim tbl As TableDef

For Each tbl In CurrentDb.TableDefs
Debug.Print "TABLE... " & UCase(tbl.Name) & " ... " & tbl.Connect
Next tbl

I am currently updating the Front to Access 2003 and I can get most of a tables properties using the following code, but can't get the connection property. Does anyone know how to this is done?

Dim obj As AccessObject

For Each obj In CurrentData.AllTables
Debug.Print obj.Name, obj.Type
Next obj

Thanks in advance

Roy.