Dim tm1 As Date
tm1 = FormatDateTime(Text1.Text, vbLongTime)
Set db2 = New Connection
db2.CursorLocation = adUseClient
db2.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\hbdata.mdb;"
Set adoPrimaryRS2 = New Recordset
adoPrimaryRS2.Open "select 日期 from biao", db2, adOpenStatic, adLockReadOnly

adoPrimaryRS2.Find ("时间 >= " & tm1 & " ")
mybookmark = adoPrimaryRS2.Bookmark
If Err And mycount = -1 Then
(这以上三句什么意思，尤其是bookmark怎么回事)

Form9.Label1.Caption = "读取数据库错误！！"
Form9.Show
Exit Sub
End If

Do

If adoPrimaryRS2.Fields.Item(2).Value > maxy Then
（adoPrimaryRS2.Fields.Item(2).Value 什么意思）

maxy = adoPrimaryRS2.Fields.Item(2).Value
End If
adoPrimaryRS2.MoveNext
Loop Until adoPrimaryRS2.EOF = True
K = 540 / maxy
For z = 0 To 8 Step 1
Label5(z) = maxy / 9 * (z + 1)
Next z

adoPrimaryRS2.Find ("时间 >= " & tm1 & " ") 查找数据库中"时间>=tm1"
mybookmark = adoPrimaryRS2.Bookmark 表中书签
If Err And mycount = -1 Then 若是这两条件都成立
If adoPrimaryRS2.Fields.Item(2).Value > maxy Then
表中第三字段的值与maxy比较

adoPrimaryRS2.Find ("时间 >= " & tm1 & " ") '从记录集中找到时间大于或等于tm1的记录
mybookmark = adoPrimaryRS2.Bookmark ' 把标记赋给mybookmark
If Err And mycount = -1 Then '如果出错或没找到

If Err And mycount = -1 Then '如果出错且没找到
adoPrimaryRS2.Bookmark 指记录集当前的标签,就是当前指向的那条记录.

应该是～

dawn4640576

数据库了解不多，正在学习！

adoPrimaryRS2.Find ("时间 >= " & tm1 & " ")
mybookmark = adoPrimaryRS2.Bookmark
If Err And mycount = -1 Then

把记录集的游标定位到时间大于指定时间的记录，然后下面在处理。其实这句应该写到sql里面的