Aiuto vi prego qui impazzisco

[happosai]

Ho sempre il seguente errore
Tipo di errore:
Provider (0x80020005)
Incompatibilità tra tipi.
/sinetlab/Asp/creaForm.asp, line 8
Sul seguente codice
<%
if Session("user") = "" then
Response.Redirect("logonForm.asp")
end if

Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open, "tblCommesse",Application("aConnSito"),3,3

rs.AddNew()
rs("NumCommessa") = LCase(Trim(Replace(Request.Form("fNum"), "'", "''")))
rs("RIAC") = LCase(Trim(Replace(Request.Form("fRIAC"), "'", "''")))
rs("DesCommessa") = LCase(Trim(Replace( Request.Form("fdesCom"), "'", "''")))
rs("RifCliente") = LCase(Trim(Replace(Request.Form("fCliente"), "'", "''")))
rs("RifContratto") = LCase(Trim(Replace( Request.Form("fRifCon"), "'", "''")))
rs("DataContratto") = LCase(Trim(Replace( Request.Form("fDataC"), "'", "''")))
rs("DataOrdine") = LCase(Trim(Replace(Request.Form("fDataO"), "'", "''")))
rs("DDT") = LCase(Trim(Replace( Request.Form("fDDT"), "'", "''")))
rs("StatoAvanzamento") = LCase(Trim(Replace(Request.Form("favanzamento"), "'", "''")))
rs("UserName") = LCase(Trim(Replace( Request.Form("fUserN"), "'", "''")))
rs("Password") = LCase(Trim(Replace(Request.Form("fUserP"), "'", "''")))
rs.UpDate()

rs.Close()
Set rs = Nothing

%>
la parte html nn la riporto, ci sono solo label con campi di input

[optime]

cosa vale

Application("aConnSito")

???