ASP - Microsoft JET Database Engine error '80040e10'

Buenos Dias, Tengo problemas con esta parte de codigo, estoy tratando de hacer un carrito de compras y no se que pueda ser, a ver si alguien me da una mano con eso, gracias.

este es el error

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/mifolder/car.asp, line 45

este es el codigo:

<%@ LANGUAGE=VBScript %>
<%Option Explicit%>
<%Response.Buffer=True%>
<%
Sub MostrarCatalogo
Dim oRs1, oRs2, SQL
Dim idmodelo
Set oConn = server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\..\mibd.mdb;"
set oRs1 = Server.CreateObject("ADODB.Recordset")
set oRs2 = Server.CreateObject("ADODB.Recordset")
SQL="SELECT IDProducto, NombreProducto, Stock, IDModelo FROM Producto;"
oRs1.Open SQL, oConn
%>
<TABLE BORDER=1 CELLSPACING="1" CELLPADDING="1" width="491" border=1 style="WIDTH: 491px; HEIGHT: 49px" align=center background="" bgColor="#336699">
<TR>
<TD><B>Modelo</B></TD>
<TD><B>Producto</B></TD>
<TD><B>Stock</B></TD>
<TD></TD>
<%
do until oRs1.EOF
idmodelo=oRs1.Fields("IDModelo")
SQL="SELECT * FROM Modelo WHERE IDModelo="&idmodelo&";"
Set oRs2 = Server.CreateObject("ADODB.Recordset")
oRs2.Open SQL, oConn ---->> Linea 45
%>