如果您的编程环境不支持Recordset的FindFirst操作，您可以使用其他方法来实现相同的功能。以下是一种解决方案：

Dim rs As Object ' 声明一个通用的Recordset对象
Dim searchValue As String ' 要查找的值

' 设置要查找的值
searchValue = "John"

' 执行查询
Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourTableName")

' 移动到记录集的第一条记录
rs.MoveFirst

' 循环遍历记录集
Do Until rs.EOF
    ' 检查当前记录的值是否与要查找的值相等
    If rs.Fields("FieldName").Value = searchValue Then ' 将"FieldName"替换为您要查找的字段名
        ' 找到匹配的记录，执行您的操作
        MsgBox "找到匹配的记录！"
        Exit Do ' 如果只需要找到第一个匹配项，则可以使用Exit Do退出循环
    End If
    
    ' 移动到下一条记录
    rs.MoveNext
Loop

' 关闭记录集
rs.Close
Set rs = Nothing

请将上述代码中的"YourTableName"替换为您要查询的表名，"FieldName"替换为您要查找的字段名。这段代码将遍历记录集，逐条比较字段值，直到找到匹配的记录或遍历结束。