Ho sempre il seguente problema e non so dove sbattere la testa :
Tipo di errore:
Provider (0x80020005)
Incompatibilità tra tipi.
/sinetlab/Asp/creaForm.asp, line 8

Ecco il 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

Dim vNamber
Dim vDesc
Dim vRIAC
Dim vCliente
Dim vContratto
Dim vDataCon
Dim vDataOrd
Dim vAvanza
Dim vDdT
Dim vUser
Dim vPass

vNamber = LCase(Trim(Replace(Request.Form("fNum"), "'", "''")))

vDesc = LCase(Trim(Replace(Request.Form("fRIAC"), "'", "''")))

vRIAC = LCase(Trim(Replace( Request.Form("fdesCom"), "'", "''")))

vCliente = LCase(Trim(Replace(Request.Form("fCliente"), "'", "''")))

vContratto = LCase(Trim(Replace( Request.Form("fRifCon"), "'", "''")))

vDataCon = LCase(Trim(Replace( Request.Form("fDataC"), "'", "''")))

vDataOrd = LCase(Trim(Replace(Request.Form("fDataO"), "'", "''")))
vDdT = LCase(Trim(Replace( Request.Form("fDDT"), "'", "''")))

vAvanza = LCase(Trim(Replace(Request.Form("favanzamento"), "'", "''")))

vUser = LCase(Trim(Replace( Request.Form("fUserN"), "'", "''")))

vPass = LCase(Trim(Replace(Request.Form("fUserP"), "'", "''")))

rs.AddNew()
rs("NumCommessa") = vNamber
rs("RIAC") = vRIAC
rs("DesCommessa") = vDesc
rs("RifCliente") = vCliente
rs("RifContratto") = vContratto
rs("DataContratto") = vDataCon
rs("DataOrdine") = vDataOrd
rs("DDT") = vDdT
rs("StatoAvanzamento") = vAvanza
rs("UserName") = vUser
rs("Password") =vPass
rs.UpDate()

rs.Close()
Set rs = Nothing

%>
Ovviamente c'è una parte html e dello script(vbscript che controlla l'immissione e poi fa un document.nameform.submit)

P.s La riga 8 è
rs.open, "tblCommesse",Application("aConnSito"),3,3
help...help