各位朋友快帮忙，马上结帖，在线等

[bluesanke]

Private Sub CmdQuery_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.Open = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"

'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框，将输入的内容送到FindBH变量中
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS " & crieria, cn
FindBH = InputBox$("请输入要查找的土地登记申请书编号：", "查找")
'保存当前记录指针到CurrentBookMark变量中
If rs.BOF And rs.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
End Sub

运行到 cn.Open = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"这步的时候，显示“缺少函数或变量”
各位朋友快帮忙呀！！！

[岁月无声-我心飞翔]

cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd"

[bluesanke]

谢谢大哥！！！这30分是你的了
可是我还想问为什么，运行到最后出不来我要的结果呢？？！提示总是有！就是我输入没有的编号它还是提示有！！这是为什么呀？？？