Dim J As Double = CDbl(e.Form.controls("textbox4").text )
....
="insert into {Card_Set} ([新增时间],[原始金额],[状态]) values( T & ", " & J & ", " & "" & Z & "")"