怎么用for循环查询字段中符合条件的个数？

是下面这样吗？

Function test_1()

    Dim qryName As String
    Dim colName As String
    Dim strFind As String
    Dim count As Integer
    Dim rst As DAO.Recordset
    
    qryName = "qry_1"   '查询名称
    colName = "col_2"   '字段名称
    strFind = "fda"     '要查找的值
    count = 0           '符合要求的值进行计数
    Set rst = CurrentDb.OpenRecordset(qryName)
    
    Do Until rst.EOF
        If rst("col_2") = "fda" Then
            count = count + 1
        End If
        rst.MoveNext
    Loop
    
    MsgBox ("查询“" + qryName + "”  中的字段“" + colName + "”中，值“" + strFind + "”共计出现：" + str(count) + "次")
    
End Function