急问个问题！高手快帮忙！thx

[bluesanke]

Private Sub CmdQuery_Click()
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = Adodc1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
Adodc1.Recordset.《1》FindFirst Criteria
'如果没有找到
If Adodc1.Recordset.《2》NoMatch Then
'恢复当前记录指针到CurrentBookMark
Adodc1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录！", 0, "查找结果"
End If
End Sub
以上程序用数据控减测试完全通过没有问题，但是要是用ado来实现需要改改〈1〉和〈2〉处，那位高手知道希望告诉我详细的修改方法谢谢！ 关键是ado中怎么样定位指针？！

[enhydraboy]

1 bind you control a recordset

dim cn as new adodb.connection
dim rs as new adodb.recordset

cn.open ...
rs.open sql,cn,3,3

set txtcontrol.datasource=rs
txtcontrol.datafield="xxx"

2
Private Sub CmdQuery_Click()
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = Adodc1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
rs.FindFirst Criteria
'如果没有找到
If rs.NoMatch Then
'恢复当前记录指针到CurrentBookMark
Adodc1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录！", 0, "查找结果"
End If
End Sub

[bluesanke]

可是Adodc1.Recordset.不可以选findfirst和nomatch呀！怎么在这基础上修改呀！能详细说说吗

[bluesanke]

为什么这个问题没人回答呢！很急的说！adodc1.recordet.后面不能和data式的选findfirst和nomatch应该改成什末呀？！