Problema con OpenSchema

[Dirk Pitt]

Ciao,
qualcuno sa dirmi perchè questo codice è sbagliato, ovvero perchè mi dà errore?

<select name="la_mia">

<%
Set tab = objConn.OpenSchema(20)
do while not tab.eof
response.write "<option value='<%=tab("TABLE_NAME")%>'><%=tab("TABLE_NAME")%></option>"
tab.Movenext
Loop

tab.Close
Set tab = Nothing

objConn.Close
Set objConn = Nothing
%>
</select>