Automatizzare l'inserimento di recordset mediante procedure

[dreaman74]

Devo inserire circa 80 query in altrettanti campi all'interno di un database.
richiamo la procedura in questo modo:

DIM query
rsdescrizione.ADDNEW
call controlloQuery (request.form("carboidrati"), "rsdescrizione", "CARBOIDRATI")
call controlloQuery (request.form("lipidi"), "rsdescrizione", "LIPIDI")
call controlloQuery (request.form("proteine"), "rsdescrizione", "PROTEINE")
...
rsdescrizione.UPDATE

ecco la procedura:

Sub controlloQuery(valoreQuery, recordset, nomeCampo)
	
	IF len(valoreQuery) > 0 THEN
	query = recordset & "(""" & nomeCampo & """)" & "=" & valoreQuery
	END IF
	
End Sub

Come faccio ad avviare l'inserimento del recordset. Pensavo che bastasse ommetter l'assegnazione della variabile query in questo modo:

recordset & "(""" & nomeCampo & """)" & "=" & valoreQuery

Ma mi da errore.
Mi sto perdendo in un bicchiere d'acqua!