VB+ACCESS2000 的SQL语句INSERT INTO 货币类型的数据的问题？

Question

表 统计信息有一个姓名字段和12个货币字段，用来存放12个的月的收入，类型为Currency，需要将一个名字和12个货币用sql语句插入到表中，这条sql语句如何写：
部分代码如下：
Dim cN As New adodb.Connection
cN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & filename
Dim Mon(1 To 12) As Currency
然后将Mon(1)toMon(12)赋值
INSERTSQL = "insert into 统计信息(XM,JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC) values('张三'"＋
 接下来该如何写（需把12个变量值插入到表中）？
就算后面加上12个0，即＋"0,0,0,0,0,0,0,0,0,0,0,0)" vb报告的错误为INSERT INTO语法错误？如何解决呀？
谢谢

Answer 1

INSERTSQL = "insert into 统计信息(XM,JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC) values('张三',0,0,0,0,0,0,0,0,0,0,0,0)" 

Answer 2

lxqlogo0(群子):
我的意思是要给12个货币变量值进去，而且我试验了一下就是加了12个0也不对！

Answer 3

是vb的语法错误，还是sql的语法错误？

Answer 4

在ACCESS中直接输入这条SQL语句是对的，但程序运行时vb报告insert into语法错误。而且这12个变量怎么传递到INSERTSQL字符串中？

Answer 5

那就是vb的语法错误了，假设每个月的工资都放在不同文本框内：
INSERTSQL = "insert into 统计信息(XM,JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC) values(" _
            & "'" & "张三" & "'" _
            & "," & Val(txtJan.Text) _
            & "," & Val(txtFeb.Text) _
            & "," & Val(txtMar.Text) _
            & "," & Val(txtApr.Text) _
            & "," & Val(txtMay.Text) _
            & "," & Val(txtJun.Text) _
            & "," & Val(txtJul.Text) _
            & "," & Val(txtAug.Text) _
            & "," & Val(txtSep.Text) _
            & "," & Val(txtOct.Text) _
            & "," & Val(txtNoV.Text) _
            & "," & Val(txtDec.Text) _
            & ")"

Answer 6

我已经搞定，问题在于字段名DEC上，谢谢各位！