Syntax error in UPDATE statement (VB.NET)

See more:

VB

MS-Access

Hi All,
I am using VB.net (2010) and I am trying to update a Accedss 2010 DB.
I am getting the following erroe:
Syntax error in UPDATE statement at the cmd.ExecuteNonQuery() statemant.
My code is as follows:

Dim Username As String
   Dim ComputerName As String
   Dim AccessTime As Date
   Dim AppName As String
   Dim DomainName As String
   Dim ProjectRef As String

   Dim Update As String = _
  "Update Application Logging set (AccessTime,UserName, ComputerName, DomainName, AppName, ProjectRef) Values(?,?,?,?,?,?)"
   Dim cnnString As String = _
   "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = \\appserver\database.accdb; "


   Public Sub DBUpdate()
       Username = System.Security.Principal.WindowsIdentity.GetCurrent.Name
       DomainName = Environment.UserDomainName
       ComputerName = Environment.MachineName
       AccessTime = Date.Now
       AppName = My.Application.Info.AssemblyName


       Using cnn As New OleDbConnection(cnnString)
           cnn.Open()
           Using cmd As New OleDbCommand(Update, cnn)
               cmd.Parameters.AddWithValue("AccessDate", AccessTime)
               cmd.Parameters.AddWithValue("Username", Username)
               cmd.Parameters.AddWithValue("ComputerName", ComputerName)
               cmd.Parameters.AddWithValue("DomainName", DomainName)
               cmd.Parameters.AddWithValue("AppName", AppName)
               cmd.Parameters.AddWithValue("ProjectRef", ProjectRef)

               cmd.ExecuteNonQuery()

           End Using

       End Using

I'm new to this so I'm sure its a simple mistake on my part.

Thanks for any help.