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块为设置

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

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

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