各位帮个忙，现在有个要利用ListView控件+ImageList绑定数据库显示数据
下面是数据库中的2个表：监控温度表和Roomtemp表
监控温度表
id 温度 湿度 时间
6 21.4 40.62 2007-1-17 10:13:07
8 21.36 40.89 2007-1-17 10:14:01
3 21.69 39.91 2007-1-17 10:16:13
10 21.62 39.81 2007-1-17 10:16:33
2 20.57 43.52 2007-1-17 10:10:10
15 20.63 41.35 2007-1-17 10:18:51
5 22.53 38.85 2007-1-17 10:10:10
2 21.25 41.34 2007-1-17 10:22:18
6 21.89 39.90 2007-1-17 10:22:41
12 21.89 39.9 2007-1-17 10:22:44
2 22.96 35.3 2007-1-17 10:25:02
12 22.08 35.71 2007-1-17 10:25:34
20 22.08 35.71 2007-1-17 10:25:43
5 21.54 37.57 2007-1-17 10:27:23
1 22.25 37.47 2007-1-17 10:27:25
Roomtemp表
记录号 id 楼层 状态
34 1 1 空闲
35 2 1 空闲
36 3 1 空闲
37 4 1 空闲
38 5 1 空闲
39 6 1 空闲
40 7 1 空闲
41 8 1 空闲
42 9 1 空闲
43 10 1 空闲
比如说Roomtemp表中id=1时，ListView1.ToolTipText显示的温度位21.4
下面是软件界面的连接 和 代码
界面：

代码：
Private Sub Comfind_Click()
On Error Resume Next
Dim q As Integer

If Check1.Value Then
If Text1.Text = 0 Or Text1.Text = "" Then
MsgBox "请输入间隔时间"
Exit Sub
End If
SQLStr = "Select distinct 时间, * From 监控温度表,roomtemp Where 监控温度表.时间 between '" + Str(dtStart.Value) + "'AND '" + Str(dtEnd.Value) + "' And DateDiff(" + "mi" + ",'" + Str(dtStart.Value) + "',时间) % " + Str(Text1.Text) + "=0 and (监控温度表.id=roomtemp.id) order by 时间 asc "
Else
SQLStr = "select * from 监控温度表,roomtemp where (监控温度表.时间 between '" + Str(dtStart.Value) + "'AND '" + Str(dtEnd.Value) + "') and (监控温度表.id=roomtemp.id) order by 时间 asc"
End If
Set rs = ESQL(SQLStr)
For q = 1 To rs.RecordCount
ListView1.ToolTipText = "温度：" & rs!温度 & "℃ " //我这样做都是显示相同数据了
rs.MoveNext
Next
End Sub