error al borrar un registro

[engonga]

Hola tengo este codigo

Código HTML:

Dim param
param = "1"
If (Request.QueryString("param") <> "") Then 
  param = Request.QueryString("param")
End If
%>
<%
Dim rd_drop
Dim rd_drop_numRows

Set rd_drop = Server.CreateObject("ADODB.Recordset")
rd_drop.ActiveConnection = MM_hydba_STRING
rd_drop.Source = "SELECT * FROM sub_grups WHERE sub_grup = "& param &""
'rd_drop.Source = "SELECT * FROM sub_grups WHERE sub_grup = " + Replace(rd_drop__MMColParam, "'", "''") + ""
' Cursor=adOpenKeyset
rd_drop.CursorType=1
' Lock=adLockOptimistic
rd_drop.LockType=2
rd_drop.Open
rd_drop.Delete
rd_drop.Update
rd_drop.close
response.redirect(redirect_url)

que lo que me hace es borrar un registro que le passo des de un form.

pero me da el siguiente error

Código HTML:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/hydba/admin/sub_prod.asp, línea 32

en otros scripts me funciona bien la unica diferencia es que en otros scripts borro datos que tienen mas de una columna y en el que me falla la tabla solo tiene una columna

alguien me puede ayudar?

[trasgukabi]

"DELETE FROM sub_grups WHERE sub_grup = "& param