Dim StartDate As Date = New Date(Date.today.Year, Date.today.Month, 1)
Dim EndDate As Date = New Date(Date.today.Year, Date.today.Month, Date.DaysInMonth(Date.today.Year, Date.today.Month))
Dim cmd As New SQ-LCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELEC-T 产品ID, 客户ID, 单价, 数量, 日期 FROM {订单} WHERE 日期 >= #" & StartDate & "# And 日期 <= #" & EndDate & "# "
Tables("查询_Table1").DataSource = cmd.ExecuteReader()