我用VB写了一个程序读取数据库中的表和字段信息:    Dim conn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    Dim strConn As String
    
    strConn = "Provider=OraOLEDB.Oracle.1;Password=hc;Persist Security Info=True;User ID=hc;Data Source=hcLink"
    conn.Open strConn
    
    Set cat.ActiveConnection = conn1、在Set cat.ActiveConnection = conn这一句会出错,在调试状态会提示“实时错误‘8002000a’:超出当前范围”。
2、忽略错误继续执行可以获得cat.Tables,但是获得的不是用户hc的表,而是数据库中的所有的表、视图。请问:第一个错误是怎么回事?
第二个问题要怎么解决才能只获得hc的表?(hc只有一个数据空间,但是是DBA)