Connessione chiusa o non valida in questo contesto

[wegawhite]

Buona domenica.

Non capisco perchè questo codice restituisca quest'errore:

Tipo di errore:
ADODB.Recordset (0x800A0E7D)
Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;"


Sub ShowCats()
	
	    Set objShowCatRS = Server.CreateObject("ADODB.Recordset")
		strShowCatSQL = "Select * From tbl_Categories"
		objShowCatRS.Open strShowCatSQL, objConn

		Do While Not objShowCatRS.EOF
			For Each itmCat In objShowCatRS.Fields
				If itmCat.Name = "Name" Then
					Response.Write itmCat.Value & "
"
				End If
			Next
			objShowCatRS.MoveNext
		Loop

		objShowCatRS.Close
		Set objShowCatRS = Nothing

	End Sub

Sapete aiutarmi?