Comando InsBd.Update

Galera to começando nesse forum agora entao me perdoa se cometer alguma "gafe"

é o seguinte, tenho que colocar uma pagina para funcionar, mais estou com dificuldade para fazer ela "rodar", pois sempre que vou fazer uma gravação no BD ele da erro, já configurei na pagina config o endereço do banco de dados, mais não ta dando certo.

Se for um erro aparentemente facil queria uma ajuda (se nao for tambem)

código da pagina config: (só conexão)

'Abertura de Banco de dados
Sub AbreBd()

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=C:/inetpub/wwwroot/Dados/DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"
'Conn.Open "DBQ=c:/ebw/downloadsexocombr/database/DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"

End Sub

'Fechamento de Banco de dados
Sub FechaBd()
Conn.Close
Set Conn = Nothing
End Sub

E depois a pagina que ele acusa o erro, é na pagina cadastro.asp na linha 63, exatamente no comando InsBd.Update

If VarEmail = "" Then

 Response.Write "<span class='TituloVermelho'>Coloque seu e-mail!</span><br><br>"

 Else

 If VarAcao = "1" Then

 Set Cadastrados = Conn.Execute("SELECT * FROM Cadastros WHERE Email = '"& VarEmail &"'")

 If not Cadastrados.EOF Then

 Response.Write "<span class='TituloVermelho'>Este e-mail já se encontra cadastrado em nosso banco de dados!</span><br><br>"

 Else

 Dim InsBd
 Set InsBd = Server.CreateObject("ADODB.Recordset")
 InsBd.CursorLocation = adUseServer
 InsBd.CursorType = adOpenKeyset
 InsBd.LockType = adLockOptimistic
 InsBd.Open "Cadastros", Conn, , , adCmdTable
 InsBd.AddNew
 InsBd("Email") = VarEmail
 InsBd("Secao") = VarCodAutenticacao
 InsBd("Status") = "1"
 InsBd.Update
 InsBd.Close
 Set InsBd = Nothing

 VarConfEmail = "<link href="& EndLocal & "Includes/Styles.css rel=stylesheet type=text/css>"
 VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width=370 height=270 background="& EndLocal &"Imagens/FundoConfEmail.gif>"
 VarConfEmail = VarConfEmail & "<tr>"
 VarConfEmail = VarConfEmail & "<td>"
 VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>"
 VarConfEmail = VarConfEmail & "<tr>"
 VarConfEmail = VarConfEmail & "<td>"
 VarConfEmail = VarConfEmail & " "
 VarConfEmail = VarConfEmail & "</td>"
 VarConfEmail = VarConfEmail & "</tr>"
 VarConfEmail = VarConfEmail & "<tr>"
 VarConfEmail = VarConfEmail & "<td>"
 VarConfEmail = VarConfEmail & "<center><a href='"& EndLocal &"ConfirmacaoCadastro.asp?Act=1&CodAutenticacao="& VarCodAutenticacao &"' class='TituloCinzaEscuro' target='_blank'>Clique aqui para confirmar a inclusão de seu e-mail!</a></center>"
 VarConfEmail = VarConfEmail & "</td>"
 VarConfEmail = VarConfEmail & "</tr>"
 VarConfEmail = VarConfEmail & "</table>"
 VarConfEmail = VarConfEmail & "</td>"
 VarConfEmail = VarConfEmail & "</tr>"
 VarConfEmail = VarConfEmail & "</table>"

 vEmailNomeRemetente = Titulo ' Remetente (Nome)
 vEmailRemetente = EmailPadrao ' Remetente (Email)
 vEmailNomeDestinatario = VarEmail ' Destinatário (Nome)
 vEmailDestinatario = VarEmail ' Destinatário (Email)
 vEmailRetorno = EmailPadrao ' Remetente
 If VarAcao = "1" Then
 vEmailAssunto = "Confirmação de cadastro de e-mail." ' Assunto
 Else
 vEmailAssunto = "Confirmação de remoção de e-mail." ' Assunto
 End If
 vEmailCorpo = VarConfEmail ' Corpo

 'Call EnvioEmail()

 Response.Write "<span class='TituloVermelho'>A inserção de seu e-mail foi realizada com sucesso! </span><br><br>"

 End if

Alguem sabe me ajudar?