Private Sub Command1_Click()
Dim sname As Variant
sname = Text1.Text
Data1.Recordset.FindFirst "每齿进给量 like'" & sname & "'"
If Data1.Recordset.NoMatch Then MsgBox ("无此每齿进给量")  'MsgBox "无此每齿进给量", , -"提示"

End Sub

Private Sub Command2_Click()
铣削用量浏览.Show
End Sub

Private Sub Command3_Click()
Dim sname As Variant
sname = Text2.Text
Data1.Recordset.FindFirst "被加工材料 like'" & sname & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此被加工材料", , "提示"
End Sub

Data1.Recordset.FindFirst "每齿进给量 like'" & sname & "'"
调试的时候，就这个语句变黄色。说是变量未定义或with块为设置

在我映像中，recordset是没有findfirst这个方法的，很显然，你使用数据库控件data1，已经绑定了记录集，而"每齿进给量 like'" & sname & "'"是组合sql语句，这是一个矛盾，因为data1的sql语句是放在data1的recordsource属性里的。因此，你的FindFirst 可能是一个函数，它带一个字符串参数，这个参数是一句sql语句，目的是查找第一条记录。

书本上说是有Find First的使用方法的。方法的功能是自首记录开始向下查询匹配的第一个记录。

有没有你可以进入设计状态，一般在输入recordset.f时就有提示，我这里字幕f打头的就是fields，没有findfirst，有movefirst、movenext、movelast方法，可能vba里的ado所产生的记录集有该方法，vba是office里的vb宏语言。

我这个vb的版本是没有MSND的合集的！我看的书是有跟Move的一样的

检查Data1.Recordset是否为Nothing 的方法是怎样的？

应该就是isnothing(Data1.Recordset)吧
if isnothing(Data1.Recordset) then
  ....
else
  ....
end if

在自己的电脑上试了下，data控件只能绑定早期的access数据库，你检查下是不是把数据库不小心转换为access2000的版本了，如果是就在access中将它转换为早期版本（access97),再就是data控件的databasename没指定数据库的话，运行时也会提示你所说的情况,你在每个data1.recordset加个nothing判断，看有没有提示，代码如下：
Private Sub Command1_Click()
Dim sname As Variant
sname = Text1.Text
If Data1.Recordset Is Nothing Then
  MsgBox "错误，可能Data1.DatabaseName没有正确的数据库路径或数据库版本错误，需要97版本"
  Exit Sub
End If
Data1.Recordset.FindFirst "每齿进给量 like'" & sname & "'"
If Data1.Recordset.NoMatch Then MsgBox ("无此每齿进给量")  'MsgBox "无此每齿进给量", , -"提示"

End Sub

Private Sub Command2_Click()
铣削用量浏览.Show
End Sub

Private Sub Command3_Click()
Dim sname As Variant
sname = Text2.Text
If Data1.Recordset Is Nothing Then
  MsgBox "错误，可能Data1.DatabaseName没有正确的数据库路径或数据库版本错误，需要97版本"
  Exit Sub
End If
Data1.Recordset.FindFirst "被加工材料 like'" & sname & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此被加工材料", , "提示"
End Sub


[ 本帖最后由 lowxiong 于 2011-6-8 19:08 编辑 ]