En OLE DB-åtgärd i flera steg genererade fel.

Hejsan jag håller på att bygga ett system där användare ska kunna ladda up filer till servern, dessa ska läggas i databasen och på servern där detta ligger så har de SoftArtisan's FileUp som jag själv inte gillar särskilt, hade AspUpload innan och det var mycket bättre, men nu håller jag iaf på att konvertera till FileUp, och denna raden:
RecSet.Fields("filesize") = Upload.TotalBytes ger följande fel:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
En OLE DB-åtgärd i flera steg genererade fel. Kontrollera alla OLE DB-statusvärden som finns tillgängliga. Inget arbete utfördes.

Är det någon som vet vad detta kan bero på, koden till sidan kommer längre ner.

Och om någon vet hur man använder FileUp och sql alltså så att man kan köra en sats som denna:
"INSERT INTO uppload (tabelnamn,
Det gick med AspUpload, men det finns inget ecxempel med i FileUp dokumentationen, i AspIplod så använde man ett ? där filen skulle lägas in.

Koden:

Set Upload = Server.CreateObject("SoftArtisans.FileUp")
Upload.MaxBytes = 8000000

Call OpenRecordSet("SELECT * FROM uppload WHERE filid = " &filid(0,0))

Upload.form("thefile").SaveAsBlob RecSet.Fields("filen")
RecSet.Fields("filesize") = Upload.TotalBytes
RecSet.Fields("filenamn") = Upload.ShortFilename

RecSet.Update

Call CloseRecordSet

Sub OpenRecordSet(sql)
set RecSet = Server.CreateObject("adodb.recordset")
set RecSetConnection = Server.CreateObject("ADODB.Connection")
RecSetConnection.open "driver={MySQL};server=localhost;uid=xxxx;pwd=xxxxx;database=xxxxxx"
set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open sql, RecSetConnection, 2, 3
End Sub

Sub CloseRecordSet
RecSet.Close
set RecSet = nothing
RecSetConnection.close
set RecSetConnection = nothing
End Sub

Tackar på förhand.