帮小弟我看下这程序，查询ACCESS

帮我看下这程序，查询ACCESS
我想把查询到的符合两个时间内的数据显示在DataGrid1上，可我的程序DataGrid1上只显示一条空数据。这是怎么回事啊


Dim strSQL As String
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\abc\1.mdb;Persist Security Info=False"
strSQL = "select*from 123 where 时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "#"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs

[解决办法]

VB code

'确认时间段范围内是否有记录strSQL = "select * from 123 where 时间 between #" & DTP1.Value & "# and #" & DTP2.Value & "#"Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open strSQL, conn, adOpenkeyset, adLockReadOnlySet DataGrid1.DataSource = rs