标题：代码求助(已解决)

在当前表的 表事件中有如下代码,通过执行后把当前表的数据向外部数据源的  现金流水账中 添加行并符值.执行中总提示错误,好象是Values(s4,s6,s2,s1,s5,s4,s7) 中的代码有误,请指教.

Dim s1 As String  =   e.DataRow("供应商")
Dim s2 As Double  =  e.DataRow("实付额")
Dim s3 As Double  =  e.DataRow("未付额")
 Dim s4 As Date  =  e.DataRow("入库日期")
Dim s5 As String  =  e.DataRow("入库单编号")
Dim s6 As String  =  "购货"
Dim s7 As String  =  "第一次付款"
Dim s8 As String  =  "未付款"
Dim s9 As String  =  "付清"
 Dim cmd2 As New SQLCommand
 cmd2.C
 cmd2.CommandText = "Insert Into {现金流水账} ([日期],[收支项目],[流出金额],[客户],[入出库编号],[收付日期],[说明]) Values(s4,s6,s2,s1,s5,s4,s7)"
 cmd2.ExecuteNonQuery()

cmd2.CommandText = "Insert Into {现金流水账} (日期,收支项目,流出金额,客户,入出库编号,收付日期,已付已收,说明) Values(#" & s4 & "#,'" & s6 & "','" & s2 & "', '" & s1 & "','" & s5 & "',#" & s4 & "#,True,'" & s7 & "')"