Erore con il database

[Freedom]

Ciao,

sapete dirmi dove sbaglio con il seguente codice?

<%
'apertura db
Dim ObjConn
	Set ObjConn = Server.CreateObject("ADODB.Connection")
	ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
	"DBQ=C:\Inetpub\wwwroot\db\db1.mdb;"

'apertura rs
Dim ObjRS, StrSQL
	Set ObjRS = Server.CreateObject("ADODB.Recordset")
	StrSQL = "SELECT * FROM tab1"
	ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText 	
	Dim Testo
	testo = ObjRS("Testo")
	Response.Write(testo)

ObjConn.Close
Set ObjConn = Nothing

L'errore che mi viene restituito è:
Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/gall/Default.asp, line 10 (questa linea l'ho evidenziata in rosso)



Grazie a tutti...

[kluster]

leva adCmdText

[Freedom]

Originariamente inviato da kluster
leva adCmdText

Non funge ancora...l'errore è identico

[Freedom]

Ragazzi, ho 'risolto'..
non era un problema di connessione, database, o simile.

Il problema è dovuto al fatto che, non so perchè, ma non mi vengono lette le sub. Non mi vengono proprio calcolate!!

E' corretta, vero, questa forma:

<%
Sub Connessione
	Dim ObjConn
	Set ObjConn = Server.CreateObject("ADODB.Connection")
	ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
	"DBQ=C:\Inetpub\wwwroot\mdb-database\db.mdb;"
End Sub
%>
....

e richiamo con:
<% connessione %>