Private Sub Command2_Click() '查询按钮,Command2.Caption = "查询" Adodc1.Recordset.Find "som= '" & Text1.Text & "'", , , 1 If Adodc1.Recordset.EOF Then MsgBox "查询不到", vbCriticalEnd Sub这是查找的一种写法