ASP - Error del JET / Conexiòn? / Sentencia SQL?

Tengo este error:
"Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/doctormisterio/hist.asp, line 84"

SENTENCIAS:
<% Dim oConn, RS, registros, azar, dia, mes
fecha = Date()
datos= Server.MapPath ( "/miBBDD.mdb" )
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"
sql = "SELECT * FROM Efeme WHERE mesid = '" & Month(fecha) & "' AND dia ='" & Day(fecha) & "'"
RS.OPEN sql, oConn, 1, 1
intTotalRecords = RS.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
RS.Move intRandomNumber %>

luego saco el registro al azar según la fecha

<% %>

despues saco una lista larga de paises:
<% %>

Hasta aqui todo va bien, pero luego:

<% if request.querystring("pais") <> "" then
sql = "SELECT * FROM Hist WHERE pais = '" & request.querystring("pais") & "'"
Set RS = oConn.Execute(sql)
response.write "<SPAN class=text>" & RS.fields("Nombre") & "</SPAN><br><br>"
else
response.Write "<br>"
end if %>

donde la línea 84 es: sql = "SELECT * FROM Hist WHERE pais = '" & request.querystring("pais") & "'"

necesito saber que tengo mal con la sintaxis o que???

Para Mi el error puede estar aqui :
datos= Server.MapPath ( "/miBBDD.mdb" )
si tu base datos esta en la raíz :
datos= Server.MapPath ( "miBBDD.mdb" )
si tu base datos esta en un directorio basedatos :
datos= Server.MapPath ( "../Basedatos/miBBDD.mdb" )

Espero eso te sirva.

Hasta Pronto