ho provato anche così al posto di html una frase a caso, ma non cambia nulla O_ocodice:Private Sub Salva(fine) Dim query As String Dim pier As String pier = "<ciao a tutti><uff>" If (conn.State = adStateOpen) Then 'Esegue solo se si è connessi query = "INSERT INTO ordini (id, dataora, html) VALUES ('', '" _ & Format(Now, "yyyy-mm-dd") & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & "', '" _ & pier & "')" conn.Execute query End If End Sub