Ver tablas en BD

Saludos Amigos,

Gracias anticipadas.

Tengo una BD en SQLServer 2K. Quiero llenar una variable en string. con
los nombres de las tablas de la BD, pero no he encontrado como se hace en
VB2005. Este es el codigo que utilizaba en VB6.

¿Alguna ayuda?

Sub test()
'Obtener nombres de tablas de base de datos
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Long
Dim str As String

str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=mi_database;Data Source=mi_server"

With cn
.ConnectionString = str
.Open
End With

Set rs = cn.OpenSchema(adSchemaTables)

With rs
Do Until .EOF
Debug.Print rs("TABLE_NAME")
.MoveNext
Loop
.Close
End With

End Sub