????3??????????

?????? Seek?????????ж?λ?????????????????????????????????ν??д??????

?????????????￡?

????Recordset.Seekcomparison??key1??key2. . .key13

???????е?comparison??????6?й????????г???“<>”????????????????????????????????????Seek??????????????????????????磬?????????970222??????????????????????

<SPAN style="FONT-SIZE: 18px">With rsStudent
 .Index=”XH”
 .Seek “=”??”970222”
 If .NoMatch Then MsgBox”????δ???”
End With
</SPAN>


?????? FindFirst?????????в???????????????????

?????? FindLast?????????в???????????????????

?????? FindPrevious?????????в???????????????????

?????? FindNext?????????в????????????????????

???????磬????[XM]????е??????????????????￡?

<SPAN style="FONT-SIZE: 18px">Dim S As String
With Data1.Recordset
 S=.Bookmark           ‘??????λ??
 .FindFirst “XM Like ‘??*’”   '??????????????“XM=xx”????о??????
 If .NoMatch then MsgBox “????δ???”
           .Bookmark=S           ‘???????????????????λ??
 End If
</SPAN><SPAN style="FONT-SIZE: 18px">End With
</SPAN>


????4??????????

?????? Clone?????????????????????????

?????? Close?????????????????????ù???????????

?????? OpenRecordset?????????????????????????????????????????????????????????????????????

????2???????????t???

????????????洴???????????д???????????棬??????????????????????????????????棬?????????TextBox????????????????????????????????????????????μ????????????????????￡?

<SPAN style="FONT-SIZE: 14px">            </SPAN><SPAN style="FONT-SIZE: 18px"> Dim db As Database  ‘????????
             Dim rs As Recordset       ‘?????????</SPAN>