allora, ho modificato la stringa e l'errore ora e' questo:

Error Type:
Provider (0x8000FFFF)
Catastrophic failure
/admin/prova.asp, line 61


il codice invece e' il seguente:

dim objRs
set objRs = getRs("select * from prova")
Do while NOT objRs.EOF
response.write "idDesc = " & objRs("idDesc") & "
"
response.write "Descrizione= " & objRs("Desc") & "
"
objRs.Movenext
Loop


Function getRs(strSql)

'--------------------------------------------------------
'Purpose: ritorna un disconnetted recordset
'Date: 28 March 2001
'Commenti:
'--------------------------------------------------------

Dim objConn, objRS
Dim strConn
strConn = "driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;USER=root;database=test;o ption=3"


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = adUseClient
objRS.Open strsql, objConn, adOpenForwardOnly, adLockBatchOptimistic

Set objRS.ActiveConnection = Nothing
objConn.Close
Set objConn = Nothing

getRs = objRS

End Function

Sub setQuery(strSql)
'--------------------------------------------------------
'Purpose: fa una query con una string valida di SQL
'Date: 29 March ì2001
'Commenti:
'--------------------------------------------------------
Dim objConn

Dim strConn
strConn = "driver={MySQL ODBC 3.51 Driver};server=localhost;USER=root;database=test;o ption=3"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

objConn.Execute strSql

objConn.Close
set objConn = Nothing

End Sub