Dim t1, t2 As String
Dim a, b, c, d, e, f As Integer

        a = Year(DTP1.Value)  
        b = Month(DTP1.Value)
        c = Day(DTP1.Value)
        d = Format(Hour(DTM1.Value), "00")
        e = Format(Minute(DTM1.Value), "00")
        f = Format(Second(DTM1.Value), "00")
      
t1 = Str(a) & "-" & Str(b) & "-" & Str(c) & "" & Str(d) & ":" & Str(e) & ":" & Str(f)
                  
d = d + 2  '时间加2小时
      
t2 = Str(a) & "-" & Str(b) & "-" & Str(c) & " " & Str(d) & ":" & Str(e) & ":" & Str(f)
     
Data1.RecordSource = "select * from AABB where TT > '" & Format(t1, "yyyy-mm-dd hh:mm:ss") & "' and TT < '" & Format(t2, "yyyy-mm-dd hh:mm:ss") & "' and GG > 10 and JJ > 1 "   

同时，统计出来的数据存入access数据库，并用MSFlexGrid表格显示出来，该数据库的日期时间字段为：
Data2.Recordset.Fields(0) = "" & Format(t1, "yyyy-mm-dd hh:mm:ss") & " － " & Format(t2, "yyyy-mm-dd hh:mm:ss") & ""   


TT为远程SQL数据表AABB中的日期时间字段，采用Timer控件触发，自动统计其中每2小时内的其它字段数据，即每2小时自动统计一次，每统计到跨月的时间就出错，例如2010-6-30 23:00:00----2010-7-1 1:00:00，就会出现“从char数据类型到datetime数据类型的转换导致datetime值越界”的问题，统计的时间段只要不跨年和月就不会出问题，本人探索很长一段时间了，实在没办法，跪求高手帮忙！

你先用以下小程序测试一下,看看你的思路是不是有错误

Private Sub Command1_Click()

Dim d As Date

d = Date & " " & Time
Print d
Print d + 1 / 12          ' 2 小时, 1小时为 1/24 ,可以把这个值定义为常量.
Print Format(d, "yyyy-mm-dd hh:mm:ss")
End Sub

------------------------
Date 数据类型
Date 变量存储为 IEEE 64 位（8 个字节）浮点数值形式，其可以表示的日期范围从 100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到 23:59:59。任何可辨认的文本日期都可以赋值给 Date 变量。日期文字须以数字符号 (#) 扩起来，例如，#January 1, 1993# 或 #1 Jan 93#。

Date 变量会根据计算机中的短日期格式来显示。时间则根据计算机的时间格式（12 或 24 小时制）来显示。

当其他的数值类型要转换为 Date 型时，小数点左边的值表示日期信息，而小数点右边的值则表示时间。午夜为 0 而中午为 0.5。负整数表示 1899 年 12 月 30 日之前的日期。