Selamat Siang agan2

Mau tanya neh Gan, ada error pada visual basic 6 pesan gini gan "Run-time erro '-2147217900 (80040e14)': Syntax Error in update statement" ini kenapa yach gan? Sebenarnya saya ingin buat data yang telah diinput bisa diupdate dan disimpan kembali. Berikut dibawah ini source codenya :

Private Sub TbSimpan_Click()
Dim i As Integer

If TxtNoNota.Text = "" Then
MsgBox "Nomor transaksi masih kosong !", vbOKOnly + vbCritical, "Error"
TxtNoNota.SetFocus
ElseIf Baris = 1 Then
MsgBox "Belum ada Chrome yang akan dijual!", vbOKOnly + vbCritical, "Error"
TbCari.SetFocus
ElseIf TxtUBayar.Text = "" Or TxtUBayar.Text = "0" Then
MsgBox "Belum melakukan pembayaran ! ", vbOKOnly + vbCritical, "Error"
TxtUBayar.SetFocus
ElseIf Val(TxtUBayar.Text) < Val(TxtTotBayar.Text) Then
MsgBox "Pembayaran masih kurang", vbOKOnly + vbCritical, "Error"
TxtUBayar.SetFocus
Else

SQL = ""
SQL = "Update PenjualanChrome" _
& "(No_NotaChrome,Tgl_Nota,Total_Bayar,Kode_Pelanggan,Nama_Pelanggan,UserID)" _
& "VALUES ('" & TxtNoNota.Text & "','" _
& Format(Date, "yyyy-MM-dd") & "','" _
& TxtTotBayar.Text & " ','" _
& cmbPelanggan.Text & " ','" _
& txtNmPelanggan.Text & " ','" _
& UserId & "'"
KonekDb.Execute SQL, , adCmdText

For i = 1 To Baris - 1
SQL = ""
SQL = "Update PenjualanChrome_Detail" _
& "(No_NotaChrome,Kode_Chrome,Nama_Chrome,Nm_Produk,Nama_Grup,Harga_EndUser,Jumlah,Persen,Discount,SubTotal)" _
& " VALUES ('" & TxtNoNota.Text & "','" _
& GridJual.TextMatrix(i, 0) & "','" _
& GridJual.TextMatrix(i, 1) & "','" _
& GridJual.TextMatrix(i, 2) & "','" _
& GridJual.TextMatrix(i, 3) & "','" _
& GridJual.TextMatrix(i, 4) & "','" _
& GridJual.TextMatrix(i, 5) & "','" _
& GridJual.TextMatrix(i, 6) & "','" _
& GridJual.TextMatrix(i, 7) & "','" _
& GridJual.TextMatrix(i, 8) & "'"
KonekDb.Execute SQL, , adCmdText



Mohon pencerahannya ya gan, Sebelumnya saya ucapkan terima kasih.

Salam,

Suhandana