写sql语句赋值
Dim cmd As New SQLCommandcmd.ConnectionName = "外部数据源名称"cmd.CommandText = "update {到期资金表} set 到期金额 = 开piao金额 where 到期日期 <= #" & Date.today & "#"cmd.ExecuteNonQuery