Visual Basic - OpenSchema

Mi duda es la siguiente; yo utilizo el método openSchema de un objeto connection para ver los nombres de las tablas que contiene una base de datos Access, y estos los cargos en un listbox. El problema es que aparte de las tablas cuyos nombres yo deseo mostrar me muestra los siguientes nombres:

MSysAccessObjects
MSysAccessXML
MSysQueries
MSysRelationships

como puedo evitar esto?. El código para abrir el recordset es el siguiente.

Dim cn As New ADODB.connection
Dim rs As New ADODB.recordset
cn.open "provider=xxxx; data source=xxxx"
Set rs=cn.openSchema(adSchemaTables)

Los nombres de las tablas estan en el campo Table_Name, y los cargo al listbox a través de un bucle Do While. De antemano Gracias!!

Revisa los parámetros de OpenSchema que tienes para filtrar esos casos:

Set rs=cn.openSchema(adSchemaTables,Array(Empty,Empty,Empty,"TABLE"))

En:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/his_2004Main/htm/_sna_adschematables_oledb.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/his_2004Main/htm/_sna_openschema_method_oledb.asp

tienes la documentación.