大家看看小弟我这段代码那里错了? 提示语法异常。帮小弟我看看那里错了

大家看看我这段代码那里错了?? 提示语法错误。帮我看看那里错了
Private Sub Command1_Click()

Dim AddUser As New ADODB.Recordset
Dim SqlStr As String
Dim DBstr As String
'Dim UsrID As String
Dim Spuser As String '商品名称
Dim Spcb As Integer '商品成本
Dim Spjg As Integer '出售价格
Dim Spdw As String '单位
Dim Spsl As Integer '数量
Dim Hj As Integer '合计
Dim Gmrq As Date '购买日期
Dim Dfkm As String '对方科目
Dim Tel As String '电话
Dim Jz As Boolean '结帐
Dim Xxdz As String ' 详细地址
Dim Jhqd As String ' 进货渠道
Dim Hk As Boolean ' 还款
Dim Bz As String '备注

'===============
'将文本框中的数据赋值给变量
'===============

Spuser = Combo1.Text
Spdw = Combo2.Text
Spcb = Val(Text1)
Spsl = Val(Combo3.Text)
Spjg = Val(Text2)
Hj = Val(Combo4.Text)
Gmrq = DTPicker1
 
 If Combo5.Text = "是" Then
  Jz = True
 Else
  Jz = False
 End If

Dfkm = Combo6.Text
Tel = Text4
Jhqd = Combo7
 
 If Combo8.Text = "是" Then
  Hk = True
 Else
  Hk = False
 End If
 
Xxdz = Text5
Bz = Text6
'===============
'将文本框中的数据赋值给变量
'===============


SqlStr = "INSERT INTO Info" & _
 "(商品名称,进货成本,出售价格,单位,数量,合计,购买日期,对方科目,电话,结帐,详细地址,进货渠道,还款,备注,) " & _
  "VALUES ('" & Spuser & "'" & _
  "," & Spcb & _
  "," & Spjg & _
  ",'" & Spdw & "'" & _
  "," & Spsl & _
  ",#" & Gmrq & "#" & _
  "," & Hj & _
  ",'" & Dfkm & "'" & _
  ",'" & Tel & "'" & _
  "," & Jz & _
  ",'" & Xxdz & "'" & _
  ",'" & Jhqd & "'" & _
  "," & Hk & _
  ",'" & Bz & "'):"
  Text3.Text = SqlStr
 DBcnn.Execute SqlStr

sqlstr的值为下面
INSERT INTO Info(商品名称,进货成本,出售价格,单位,数量,合计,购买日期,对方科目,电话,结帐,详细地址,进货渠道,还款,备注,) VALUES ('1212',1212,12,'12',12,#2010-4-12#,12,'12','12',False,'12','12',False,'21'):


------解决方案--------------------
这么明显的地方：
还款,备注,) VALUES (
------解决方案--------------------
INSERT INTO Info(商品名称,进货成本,出售价格,单位,数量,合计,购买日期,对方科目,电话,结帐,详细地址,进货渠道,还款,备注,) VALUES ('1212',1212,12,'12',12,#2010-4-12#,12,'12','12',False,'12','12',False,'21'):
上面这个"备注"后面多了个逗号,所以语法错误...
不有合计,购买日期字段赋值时顺序倒了....