Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

dim MyConnection as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=tuopath\tuodb.mdb")
Dim myCommand As OleDBCommand

Dim sNumeroFattura As string
Dim iIDFornitore As integer
Dim sData As string
Dim sImporto As string
Dim dImporto As decimal

sNumeroFattura=request.form.item(1).tostring()
iIDFornitore=request.form.item(2).tostring()
sData=request.form.item(3).tostring()
sImporto=request.form.item(4).tostring()
iIDFattura=cint(request("IDFattura"))

Dim strUpdateStmt As String

strUpdateStmt = " UPDATE Fattura SET NumeroFattura ='" & sNumeroFattura & "', IDFornitore =" & iIDFornitore & ", DataFattura ='" & sData & "', ImportoFattura =" & sImporto & _
" WHERE IDFattura =" & iIDFattura


myCommand = New OleDBCommand(strUpdateStmt, myConnection)
myConnection.Open()
TRY
myCommand.ExecuteNonQuery()
CATCH DBE as system.data.oledb.oledbexception
label1.Text = "Errore " + dbe.tostring()
Finally
Response.Redirect("GestioneFattura.aspx")
END TRY
myConnection.close()


End Sub