abrir fichero .txt y tomar datos

[Laika]

Ya lo he hecho pero los resultados los quiero añadir a una tabla y me da este error:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.

Este es el codigo:

<%

Set Conn = Createobject("ADODB.Connection")
Set rs = CreateObject ("ADODB.RecordSet")
Conn.Open "bdatos"

set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oFich = FSO.OpenTextFile("C:\listadodevinculos.txt", 1)

rs.Open "tabla1",Conn,3,3

For i= 0 to 764

contenido= oFich.Readline
cadena=split(contenido,"'")
cadena_final=(cadena(1))

rs.AddNew
rs ("campo1")= cadena_final

i=i+1

Next

rs.close
oFich.Close
Set oFich = Nothing
Set FSO = Nothing

%>