codice:
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
ho provato anche così al posto di html una frase a caso, ma non cambia nulla O_o