me esta falando en la linea 17 en TBL.AddNew
<html>
<head>
<title>
WWW.ELGURUPROGRAMADOR.COM.AR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
If Request.Form <> "" Then
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB, 1, 2
// me marca el error aqui
TBL.AddNew
//en esta addnew
TBL("Nombre") = Request.Form("Nombre")
TBL("Apellido") = Request.Form("Apellido")
TBL("Pais") = Request.Form("Pais")
TBL.Update
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
Response.Write "Se a agregado con exito"
else
%>
<form name="form1" method="post" action="agregar.asp">
<p> Nombre
<input type="text" name="Nombre" maxlength="50">
</p>
<p> Apellido
<input type="text" name="Apellido" maxlength="50">
</p>
<p> Pais
<input type="text" name="Pais" maxlength="50">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<%
End If
%>
</body>
</html>