ayuda con vb

[cristian.mbb]

Hola amigos quisera perdirles su ayuda lo que pasa que deseo saber como puedo listar las tablas que tiene mi base de datos atraves de visual basic 6, si me pudiese decir como hacerlo o si alguien lo ha hecho y me pudiese explicar como lo hiso se lo agradeceria un monton,
ok gracias

[Insomnia]

Hola espero que te sirva

Código:

Dim Cn as New ADODB.COnnection
Dim Ct as New ADODX.Catalog
Dim Tb as New ADODX.Table

Cn.Open ...
Set Ct.ActiveConnection = Cn

For each Tb in Ct.Tables
   List1.additem Tb.Name
next Tb

* Para que funcione hay que añadir la referencia Micr. ADO Ext 2.5 for DLL and Secutity.

--Saludos--