verificare esistenza di una tabella in DB mdb

[reybluk]

Salve a tutti.
Ho bisogno di verificare l'esistenza di una tabella e se non esiste la devo creare. il secondo passaggio (creare la tabella è ok.), ma il primo passaggio mi da dei problemi.
Ho letto che è possibile verificare l'esistenza di una tabella in questo modo:

function tableexist(tableToFind,dbname)
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source="
    ConnStr = ConnStr & server.mappath(dbname)
    set adodbConn = CreateObject("ADODB.Connection")
    adodbConn.open ConnStr
    sql = "SELECT COUNT(*) FROM MSYSObjects WHERE Type = 1" & _
    " AND [Name]='" & tableToFind & "'"
    set rs = adodbConn.Execute(sql)
    found = rs(0)
    if found then
        tableexist = true
    else
        tableexist = false
    end if
end function 

ma mi viene restituito il seguente errore:

Microsoft JET Database Engine error '80040e09'
Record(s) cannot be read; no read permission on 'MSYSObjects'.
nomefile.asp, line 8

dove line 8 è: set rs = adodbConn.Execute(sql)

Come mai?

[albis]

prova a vedere quì
http://www.iprogrammatori.it/articol..._Sql_e_ADO.asp

in particolare dice

p.s. se lo script viene eseguito su server in hosting potreste avere questo errore:
“ Error: Record(s) cannot be read; no read permission on 'msysobjects'”
Per risolvere il problema dovete modificare i permessi di utilizzo della tabella MSysObjects >> Strumenti > Protezione > Autorizzazione Utenti e Gruppi.
Selezionate la tabella MSysObjects e attivate Lettura dati.

[reybluk]

mitico! grazie funziona! erano i permessi di hosting

[albis]

di nulla