1、出库所有记录并用循环累加符合要求的记录是不可取的。
在芒市等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站制作、成都网站建设 网站设计制作定制制作,公司网站建设,企业网站建设,高端网站设计,营销型网站建设,外贸网站建设,芒市网站建设费用合理。
2、vb获取符合要求的记录数，需要操作数据库的sql语句一次来完成：
select count(*) from yourTable where field=condition
3、查询得到记录集里将返回符合要求的记录数。
Dim Conn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("ConnStr"))
dim strSQL as string="Select Count(ID) AS Nub from [xxx]"
dim Cmd as new SqlCommand(strSQL,Conn)
Conn.open()
dim iCount as integer=SqlCommand.ExecuteScalar() '计算记录的个数
Conn.close()
Dim DbCmd as New oledbCommand
DbCmd.CommandType = CommandType.Text
DbCmd.CommandText = CommandText
dim rowsCount as integer = cint(val(DbCmd.ExecuteScalar(select count(*) from table) ""))
