vb.net yardım

Try
cn.Open()
Dim komut2 As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE tblEvent SET subject=@subject, note=@note, date=@date, time=@time WHERE id=@id", cn)
komut2.Parameters.AddWithValue("@subject", Me.Baslık.Text)
komut2.Parameters.AddWithValue("@note", Me.note.Text)
komut2.Parameters.AddWithValue("@date", Me.tarih.Text)
komut2.Parameters.AddWithValue("@Time", Me.saat.Text)
komut2.Parameters.AddWithValue("@id", TextBox1.Text)
komut2.ExecuteNonQuery()
komut2.Dispose()
cn.Close()

Catch ex As Exception
MessageBox.Show("Hata var!" & vbCrLf & ex.Message, "İşlem Hatası", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try

acces veri tabanında günceleme işini yapamadım kod bu şekilde sözdizimi hatası var diyor