te lo posto

...tricki trachi vari command e connection

Dim data As Date = Date.Now
sql.Append("INSERT INTO Transazioni ")
sql.Append("(User_id,Transaction_Date)")
sql.Append(" VALUES ('")
sql.Append(s.ToString & "','" & data)
sql.Append("')")

'End If
MsgBox(data)

command.CommandText = sql.ToString
Dim ret As Object = command.ExecuteScalar()