Salve a tutti,
la fuzione di seguito riportata mi genera il seguente errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/FORMAZIONE/CdaM.asp, line 15


Qualcuno può aiutarmi?

C'è un'altra cosa..
questa funzione mi dovrebbe scrivere il dato in una textbox.
Volendo complicare le cose io vorrei invece creare una tabella e abbinare la funzione ad una finestrella pop-up stile cerca ma con i tasti inserisci e fine così da cercare n valori e per ognuno man mano che si trovano inserirli nella riga successiva della tabella.
Poco chiaro?se qualcuno è interessato ben lieto di mettermi in contatto per spiegare meglio.

<%
public function CalcolaCGdaMATRICOLA(matricola)

Dim oRs, oConn, sql
set oConn = server.CreateObject("ADODB.Connection")
oConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\db\anagrafica.mdb;Uid=Admin;Pwd=;"

'oConn.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= D:/db/anagrafica.mdb")

set oRs = server.CreateObject("ADODB.Recordset")

sql = "SELECT * from anagrafica where matricola = '" & matricola & "'"
oRs.open sql, oConn

if not oRs.EOF and not oRs.BOF then
while not oRs.EOF
CalcolaCGdaMATRICOLA = oRs.fields("cognome")
oRs.movenext
wend
end if
oRs.close
set oRs = nothing

oConn.close
set oConn = nothing

end function
%>