# 关于find???

Posted by 笨童 on November 09, 1999 at 10:31:51:

Private Sub find_click()
Dim FName As String
On Error GoTo finderr
FName = InputBox("请输入姓名以便查询", "搜寻", "阿里巴巴")
Do While FName = ""
MsgBox "请一定要输入姓名", vbOKOnly + vbQuestion, "警告"
FName = InputBox("请输入姓名以便查询", "搜寻", "阿里巴巴")
Loop
Adodc1.Recordset.Find "姓名 =" & FName
Exit Sub
finderr:
MsgBox Err.Description
End sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
执行输入姓名之后，出现了以下讯息:
"应用程式所吏用的引数可能有类型错误，或超过可接受的定义范围，或与其他引数冲突"
请各位高手帮忙，我使用是vb6.0_sp3, commondtype=adCmdtable

Follow Ups:

- Re: 关于find??? Alan 11:34:32 11/09/99 (1)
  - Re: 关于find???谢谢，己经解决了，ALAN 笨童 10:36:31 11/10/99 (0)