Dim c1 = e.Form.controls("DateTimePicker1")Dim cmd As New SQLCommandcmd.CommandText = "select * from {表A} where 日期 >= #" & c1.value & "#"