Public Sub addrecord()
Dim cnn As Connection
Dim rs As Recordset
Dim jintian As String
Dim bijiao As Boolean
jintian = CStr(Format(Date, "Long Date"))
bijiao = False
Set cnn = New Connection
cnn.CursorLocation = adUseClient
cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\hbdata.mdb;"
Set rs = New Recordset
rs.Open "select 日期 from biao", cnn, adOpenStatic, adLockReadOnly

rs.MoveFirst
Do
If rs.Fields.Item(0).Value = Date Then
bijiao = True
End If
rs.MoveNext
Loop Until rs.EOF = True
rs.Close
If bijiao = False Then
tianbiao(tianbiao是一个子程序)
End If

从 rs.MoveFirst到最后，这段程序每句话什么意思，它又是实现什么功能，用的什么方法呢？

[CODE]Public Sub addrecord()
'声明变量
Dim cnn As Connection
Dim rs As Recordset
Dim jintian As String
Dim bijiao As Boolean
'获得今天的日期
jintian = CStr(Format(Date, "Long Date"))
'为bijiao赋初值false
bijiao = False
'实例化cnn
Set cnn = New Connection
'cnn游标类型为客户端
cnn.CursorLocation = adUseClient
'连接hbdata.mdb数据库
cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\hbdata.mdb;"
'实例化rs
Set rs = New Recordset
'打开记录集.记录集数据库biao表的日期列
rs.Open "select 日期 from biao", cnn, adOpenStatic, adLockReadOnly
'记录集移动到第一条
rs.MoveFirst
'进入循环
Do
'如果记录集中的日期列的数据为今天
If rs.Fields.Item(0).Value = Date Then
则bijiao为true
bijiao = True
End If
'记录集移动下一条
rs.MoveNext
'当rs.eof为真时继续循环
Loop Until rs.EOF = True
'关闭记录集
rs.Close
'如果bijiao为false
If bijiao = False Then
'则执行tianbiao子程序
tianbiao(tianbiao是一个子程序)
End If
End Sub[/CODE]