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) "

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

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

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

谢谢提醒。。。