[megaloman]

Вот код из двух кусков - в первом просматриваем строки из dbf, удовлетворяющие условию, подсчитываем их кол-во, выдаём на экран 2 поля.
Во втором куске сразу подсчитываем в запросе число строк, удовлетворяющих условию

Код:

Where = "H:\Delete"
BazeName = "00_PLAT.DBF"

Connect = "Driver={Microsoft dBase Driver (*.dbf)};DefaultDir=" + Where
Set RecSet = CreateObject("ADODB.Recordset")

' Первый вариант
SQL1 = "Select * From " + BazeName + " Where 2<=Nom_Str and Nom_Str<3 "
RecSet.Open SQL1, Connect
nnn = 0
Do While Not RecSet.EOF
     nnn = nnn + 1
     MsgBox CStr(RecSet.Fields("Nom_Str")) + "  " + RecSet.Fields("Pole")
     RecSet.MoveNext
Loop
RecSet.Close
MsgBox "Число записей= " + CStr(nnn)

' Второй вариант
SQL1 = "Select COUNT(*) AS Nrec From " + BazeName + " Where 2<=Nom_Str and Nom_Str<3 "
RecSet.Open SQL1, Connect
MsgBox "Число записей= " + CStr(RecSet.Fields("Nrec"))

Вот книга, которая мне нравится, её можно найти для скачивания, ищите именно это издание.

[xilit]

Огромное спасибо. Выручил.