16/08/09 14:31:50.63 bEfZpcHP0.net
テーブル名が分からなかったのでこれで調べた
参考：URLﾘﾝｸ(msdn.microsoft.com)
（前略）
Const adSchemaTables = 20
rstList = Cn.OpenSchema(adSchemaTables)
With rstList
While ! .EOF
Ifb .Fields("TABLE_TYPE") <> "VIEW" Then
Print .Fields("TABLE_NAME") + "<#tab>" + _
.Fields("TABLE_TYPE")
EndIf
.MoveNext
wend
EndWith
Cn.Close