主题：加载数据时怎么默认只加载本月数据

我的表一打开就会加载所有数据，所以比较慢，怎么能在打开时默认只加载当月的数据？

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
    Dim StartDate As New Date(Date.Today.Year, 1, 1)
    Dim EndDate As New Date(Date.Today.Year, 12 ,31)
    e.SelectString = "Select * From {综管} Where [月份营运报表_日期] >= #" & StartDate & "# And   [月份营运报表_日期] <= #" & EndDate & "#"
End If

 

这个可以写成按年加载的是可以的，我把代码改成

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
    Dim StartDate As New Date(Date.Today.month,0, 1)
    Dim EndDate As New Date(Date.Today.month,0,31)
    e.SelectString = "Select * From {综管} Where [月份营运报表_日期] >= #" & StartDate & "# And   [月份营运报表_日期] <= #" & EndDate & "#"
End If

提示：

 

 
此主题相关图片如下：2.png

 

 

和

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
    Dim StartDate As New Date(Date.Today.month, 1)
    Dim EndDate As New Date(Date.Today.month,31)
    e.SelectString = "Select * From {综管} Where [月份营运报表_日期] >= #" & StartDate & "# And   [月份营运报表_日期] <= #" & EndDate & "#"
End If

 

 

都加载不了

提示：

 
此主题相关图片如下：1.png

麻烦林老师再帮忙看下，按月加载应该怎么写

汗，这个StartDate.AddMonths(1)

是怎么包含到当月所有日期的

好的 非常感谢的两位指导