麻烦帮我解释一下这段程序

wangjianxiao

麻烦那位高手能帮我解释这段程序：
Private Sub Form_Current()

Dim rst As Recordset
Set rst = CurrentDb().OpenRecordset("select * from anquan")
rst.FindFirst "ID=" & Me.编号
rst.MoveNext
If Left(rst!编号, 1) = "a" Then
    Text6 = rst!编号
    Text9 = ""
    If InStr(1, rst!编号, "a") > 1 Then
        Text7 = ""
        Text8 = ""
    Else
        rst.MoveNext
        Text7 = rst!编号
        rst.MoveNext
        Text8 = rst!编号
    End If
Else

End If
End Sub

williamwangc

Dim rst As Recordset
'定义rst为记录集
Set rst = CurrentDb().OpenRecordset("select * from anquan")
'设定rst＝当前数据库.开放数据集(该集合为从名为anquan的表或者查询选取所有字段)
rst.FindFirst "ID=" & Me.编号
'rst数据集.寻找id字段＝me.编号的值
rst.MoveNext
’转到前面找到的数据的下一个数据
If Left(rst!编号, 1) = "a" Then
'如果 该数据的t编号字段中左边第一个字符为a，那么
    Text6 = rst!编号
’把rst的编号字段的值赋值给text6的控件(因为text没有me，可能不是控件，下同)
    Text9 = ""
'text9变为空白
    If InStr(1, rst!编号, "a") > 1 Then
'如果rst的编号字段中a不在首位，那么
        Text7 = ""
'text7变为空白
        Text8 = ""
‘text8变为空白
    Else
'否则
        rst.MoveNext
’rst.转到下一个
        Text7 = rst!编号
rst编号字段的值赋值给text7      
rst.MoveNext
'转到下一个
        Text8 = rst!编号
'rst编号字段赋值给text8
    End If
'结束如果
Else
'否则
End If
'结束如果
End Sub