error 800a0cc1

Caros colegas,estou tendo uma dificuldade com meu código ASP.Tenho uma página que deve criar um registro "curso" e vincular locais a este curso. Quando consultar o curso ele deve aparecer somente 1 vez e trazer as caixas de seleção (checkbox) de todos os locais vinculados selecionado e os não vinculados não-selecionados. quando dou cadastrar ele cadastra o curso, mas retorna o seguinte erro e não vincula os locais: ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. Os campos das tabelas são: curso: cd_cur e nm_cur | localidade: cd_loc e nm_loc | local_curso: cd_cur e cd_loc Segue abaixo o código: <% Dim cadastro,verif_catIf Not (IsEmpty(Request.Form("nm_cur"))) Then set verif_cat = lojaDB.Execute("SELECT * FROM curso WHERE nm_cur ='"& Request.Form("nm_cur") & "'") IF verif_cat.EOF Then Dim lista_local, lu3 set lista_local = lojaDB.Execute("SELECT * FROM localidade") While not lista_local.EOF If Not (IsEmpty(Request.Form(lista_local("nm_loc")))) Then lojaDB.Execute("INSERT INTO curso(nm_cur) VALUES ('" & Request.Form("nm_cur") & "')") set lu3 = lojaDB.Execute("SELECT MAX(cd_cur) FROM curso") response.write lu3("cd_cur") lojaDB.Execute("INSERT INTO local_curso(cd_loc,cd_cur) VALUES (" & Request.Form("cd_loc") & "," & lu3("cd_cur") & ")") End If lista_local.MoveNext Wend %> <tr width=100%><td width=100%><font color=red>Curso Cadastrado</font></tr> <% cadastro = "nao" Else %> <tr width=100%><td width=100%><font color=red>Curso já existe</font></tr> <% End IfEnd IfIf Not (cadastro = "nao") Then %> <tr width=100%><td width=100%> <form action="./cad_cur.asp" method=post> <table width=100% border=0 cellpadding="4" cellspacing="2"> <tr width=100%> <td width=10% valign="top" bgcolor="#FFEAFF">Curso : </td> <td><input type=text maxlength=50 size=50 name=nm_cur></td> </tr> <tr> <td valign="top" bgcolor="#FFEAFF">Locais :</td> <td><% Dim lista_locais set lista_locais = lojaDB.Execute("SELECT * FROM localidade") While not lista_locais.EOF %> <input name="<%=lista_locais("nm_loc")%>" type="checkbox" value="<%=lista_locais("cd_loc")%>"> <%=lista_locais("nm_loc")%><br> <% lista_locais.MoveNext Wend %></td> <tr> <td valign="top"> </td> <td><input name="submit" type=submit onClick="this.value='Aguarde!'" value="Cadastrar"></td> </table> </form> </td></tr><% End If %> Desde já agradeço. Marcelo.