Visual Basic para Aplicaciones - AYUDA CON BASE DE DATOS

Antes usaba la coleccion containers del objeto database para asignar permisos a una serie de tablas y consultas en acces. Pero he cambiado la forma de conectar con la bd de Jet a ODBCDirect. El objeto que antes era una tabla ahora es una conexion y no se como obtener los nombres de las tablas y consultas de la base de datos con el objeto conexion para dar los permisos necesarios. Ahi va el codigo por si alguien me puede echar una mano.
Gracias.

For Each documento In odb.Containers("tables").Documents
With documento
If (Left$(.Name, 3) = "SQL") Then
'GUARDA EL CODIGO DE PERMISO PARA EL DOCUMENTO
.UserName = nombre

.Permissions = 852478
End If
End With
Next