主题：‘h’不是可以识别的datepart

如下代码,使用内部表时没问题,换外部表（MSSQL）,报错“'h'不是可以识别的datepart”,问题应该出在第4行的时间格式，不知怎么改？此外，第12、13行的两种代码都不能让生成的临时表隐藏,有什么办法？
1   If DataTables("预约单").SourceType = 1 Then
2       theFilter = "[预约时间] >= #" & UserDate & " 00:00# And [预约时间] <= #" & UserDate & " 23:59#"
3   Else
4       theFilter = "[预约时间] >= '" & UserDate & " 00:00' And [预约时间] <= '" & UserDate & " 23:59'"
5   End If
6   Dim GTB2 As New GroupTableBuilder("预约统计按时",DataTables("预约单"))
7   GTB2.FromServer = True
8   GTB2.Filter = theFilter
9   GTB2.Groups.AddDef("预约时间",DateGroupEnum.Hour,"预约日期")
10 GTB2.Totals.AddDef("车牌号",AggregateEnum.Count)
11 GTB2.Build
12 'Tables("预约统计按时").Visible = False
13 'GTB2.TableVisible = False