VB数据库问题

 Dim a, b, c, d

        conn.ConnectionString = dbConnectstring
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "select [sale_id],[sale_price],[sale_owner],[sale_photo] from [sale]"

        ada.SelectCommand = cmd
        ada.Fill(ds, "kk")
        a = ds.Tables("kk").Rows(0)(0)
        b = ds.Tables("kk").Rows(0)(1)
        c = ds.Tables("kk").Rows(0)(2)
        d = ds.Tables("kk").Rows(0)(3)


        cmd.Connection = conn
        cmd.CommandText = "insert into [goods]([sale_id],[sale_price],[sale_owner],[goods_time],[sale_photo])" & "values(" & a & "','" & b & "','" & c & "','" & Now() & "','" & d & ")"
        cmd.ExecuteNonQuery()
        conn.Close()
        Response.Write("<script>alert('购买成功')</script>")


老是提示',' 附近有语法错误。为什么 --------------------编程问答-------------------- 处理了一下，不清楚你字段的数据类型，只能先这样了

  cmd.CommandText = "insert into [goods]([sale_id],[sale_price],[sale_owner],[goods_time],[sale_photo]) values('" & a & "','" & b & "','" & c & "','" & Now() & "','" & d & "')"

--------------------编程问答-------------------- cmd.CommandText = "insert into [goods]([sale_id],[sale_price],[sale_owner],[goods_time],[sale_photo])" & "values('" & a & "','" & b & "','" & c & "','" & Now() & "','" & d & "')"
--------------------编程问答-------------------- '"& a &"'
'"& d &"'

补充：VB ,  网络编程