x = Val(InputBox("请输入金额："))
y = Label2(4).Caption & "-" & Label2(3).Caption & "-" & Label2(5).Caption & "  " & Label2(0).Caption & ":" & Label2(1).Caption & ":" & Label2(2).Caption
conn.Execute " INSERT INTO data_count" & "(时间,金额) VALUES "('" & y & "',x) "

这段程序哪里出了问题，麻烦更正一下

data_count 后面加个空格试下

conn.Execute " INSERT INTO data_count(时间,金额) VALUES ('" & y & "',x) "

3楼方法我用过了，也不行啊。。。

请将出错提示写出来

另请将数据库中这两个字段的类型写下，将X，Y两个变量赋值后的值写下

另外，你的INSERT INTO语句出现语法错误，请复制下面代码替换原来的句子，并比较不同。

conn.Execute " INSERT INTO data_count" & "(时间,金额) VALUES ('" & y & "'," & x & ")"

友情帮顶

还真看不懂，没学到那

Private Sub Command1_Click(Index As Integer)
Dim x As Single
Dim y As String
x = Val(InputBox("请输入金额："))
y = Label2(4).Caption & "-" & Label2(3).Caption & "-" & Label2(5).Caption & "  " & Label2(0).Caption & ":" & Label2(1).Caption & ":" & Label2(2).Caption
MsgBox y, vbOKCancel, ""
conn.Execute " INSERT INTO data_count (time,money) VALUES('" & y & "',x)"
End Sub

6楼已告诉你语句错误了

conn.Execute " INSERT INTO data_count" & "([time],[money]) VALUES ('" & y & "'," & x & ")"