sSQL = "INSERT INTO " & tblordrelinje & " (OrdreID,Delenummer,Antall,Rabatt,Nybeskrivelse,Nypris,Levert,Vekt,Dato) VALUES('" & OrdreID.Text & _
"','" & varenr.Text & _
"','" & ant.Text & _
"','" & rabatten & _
"','" & beskrivelse.Text & _
"','" & Cdbl(Nypris.Text) & _ --> THIS GIVE Data Truncated
"','" & 0 & _
"','" & vekt.Text & _
"','" & Date.Now & "')"
nl_dbconn.Execute(strSQL)
|