importar txt en access y viceversa

[iber2000]

Me da error de parameter:

<%
Dim cn,cmd,fso,txt,r,aCampo

Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile("\PROVA\130209V.txt")

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.MapPath ("xxxx.mdb")

Set cmd = CreateObject("ADODB.Command")
With cmd
.CommandText = "PARAMETERS pC1 ,pC2 ,pC3,pC4,pC5,pC6,pC7,pC8,pC9; INSERT INTO vehiculos (CONT_OBJID,TIPO_REC,MARCA,SERIE,MODELO,CHASIS,MAT RICULA,FECHA_MAT,FIN) VALUES(pC1,pC2,pC3,pC4,pC5,pC6,pC7,pC8,pC9)"
.CommandType = 1
Set .ActiveConnection = cn
.Parameters.Refresh
End With

r = 0
With txt
While not .AtEndOfStream
r = r+1
aCampo = Split(txt.ReadLine(),";")
With cmd
.Parameters("pC1").Value = aCampo(0)
.Parameters("pC2").Value = aCampo(1)
.Parameters("pC3").Value = aCampo(2)
.Parameters("pC4").Value = aCampo(3)
.Parameters("pC5").Value = aCampo(4)
.Parameters("pC6").Value = aCampo(5)
.Parameters("pC7").Value = aCampo(6)
.Parameters("pC8").Value = aCampo(7)
.Parameters("pC8").Value = aCampo(8)
.Execute
End With
Wend
.Close
End With

Set txt = Nothing
Set fso = Nothing

Set cmd = Nothing
cn.Close
Set cn = Nothing


%>