Errore sconosciuto

[vic53]

a me funziona in queste righe di un mio script

Set cat = CreateObject("ADOX.Catalog")
Set cat.ActiveConnection = connB
For each tbl in cat.Tables  
  response.write "<br>Tabella: " &tbl.Name
next
...
la connessione precedentemente aperta
...
connB_string = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath(nomedb)
connB.Open connB_string
...

in cui connB è la connessione aperta