请教关于recordset的find方法的具体用法...（如何避免运行时错误）

[phommy]

在确保rs打开正常的情况下，下面的语句有时能正常执行，有时会在最后一行出现运行时错误3001
"参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。"
请同志们帮忙　谢谢...

rs.Open "select 物料编码,物料名称 from wl where 购买=1", gConn, adOpenStatic
If rs.EOF Then MsgBox "无可购进物料资料，请先进行物料设置！", vbInformation: Exit Sub
Dim bm As Variant
bm = rs.Bookmark

rs.find "物料编码='3'and 物料名称='3132'",,adSearchForward,bm

[daisy8675]

rs.Open "select 物料编码,物料名称 from wl where 购买=1", gConn, adOpenStatic
If rs.EOF Then MsgBox "！", vbInformation: Exit Sub
Dim bm As Variant
bm = rs.Bookmark
//

看ado帮助文件
strSQL="select 物料编码,物料名称 from wl where 购买=1"
rs.open strSQL,Conn,3,3
if rs.eof then
msgbox "无可购进物料资料，请先进行物料设置"
exit sub
end if

//Dim bm As Variant
//bm = rs.Bookmark
这2句话就完全不知道你要干嘛了

[feiyun0112]

我一般用filter

[of123]

//Dim bm As Variant
//bm = rs.Bookmark
这2句话就完全不知道你要干嘛了

显然，是为了在没有找到匹配记录时恢复游标的指针。
rs.Bookmark = bm

楼主：
Find 方法不支持多条件匹配。