标题：帮我看一下下面的语句错在哪里，特别是where后面的

Dim ld As Datetime
Dim cmd As New SQLCommand
cmd.CommandText = "Select Max(日期) From {表A} "
ld = cmd.ExecuteScalar()

Dim cmd1 As New SQLCommand
Dim var1,var2,var3,var4,var5 As String
'var1 = Forms("窗口4")
var1=Forms("窗口4").Controls("combobox1").text
var2=Forms("窗口4").Controls("combobox2").text
var3=Forms("窗口4").Controls("textbox4").text
var4=Forms("窗口4").Controls("textbox5").text
var5=Forms("窗口4").Controls("DateTimePicker1").text

cmd1.CommandText = "UPDATE {表A} SET 省市= '" & var1 & "',县市='" & var2 & "',区号='" & var3 & "',邮编='" & var4 & "',第三列='" & var5 & "' where 日期>= #ld# "
cmd1.ExecuteNonQuery()
DataTables ("表A").load()