falta algo para insertar datos en db

Recojo los datos de un form en variables, el primero es
de texto, el resto num., pero nada... todo el codigo es
el sgte. Espero que se pueda resolver pronto:

<%
Dim oConn, SQL
Dim codigo
Dim DS
Dim DA
Dim MA
Dim RM
Dim CO
Dim RV
Dim RE
Dim EF
Dim PE
Dim FI
Dim GP
Dim COM
Dim TR

codigo=Request.Form("codigo")
DS=Request.Form("DS")
DA=Request.Form("DA")
MA=Request.Form("MA")
RM=Request.Form("RM")
CO=Request.Form("CO")
RV=Request.Form("RV")
RE=Request.Form("RE")
EF=Request.Form("EF")
PE=Request.Form("PE")
FI=Request.Form("FI")
GP=Request.Form("GP")
COM=Request.Form("COM")
TR=Request.Form("TR")

set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=" & Server.MapPath("bdinfoalum.mdb")
SQL="INSERT INTO notas (codigo, D_Soc, D_Amb, Mat, R_Mat,
Com, R_Verb, Rel, E_Fis, PER, FI, GPP, Comp, Tri) VALUES
('"&codigo&"', "&DS&", "&DA&", "&MA&", "&RM&", "&CO&", "&R
V&", "&RE&", "&EF&", "&PE&", "&FI&", "&GP&", "&COM&", "&TR
&")"
oConn.execute SQL

oConn.Close
set oConn = nothing

%>