Помогите пожалуйста кто может

Проблема ...как можно проверить dbf на наличие записей ?
я открываю и читаю dbf файл если там есть записи
а если нет то выдавать "Файл не содержит записей !"
Работаю с ADO :
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Properties("Extended Properties") = "dBase IV"
cnn.Properties("Data Source") = def_dir & "\"
cnn.Open
rs.ActiveConnection = cnn
rs.Source = SQL & AC_FILENEW & " " & SQL1
rs.Open
ts.Activate
i = 6
rs.MoveFirst
While Not rs.EOF
If rs.Fields("nc") <> "" Then
ts.Cells(i - 1, 1).Value = rs.Fields("nc")
ts.Cells(i - 1, 2).Value = rs.Fields("name")

так ?

CursorType = adOpenDynamic
CursorLocation = adUseClient
LockType = adLockOptimistic

Kolvo=rs.recordcount
if Kolvo>0 then
MsgBox "Записи есть !!!"
...........
операторы
else
MsgBox "Записей нет !!!"

Сделал так ...работает
Спасибо всем !

rs.ActiveConnection = cnn
rs.Source = SQL & AC_FILENEW & " " & SQL1
rs.Open

If rs.EOF Then
MsgBox "???? ?? ???????? ??????? !"
Else
ts.Activate
i = 6
rs.MoveFirst
While Not rs.EOF
If rs.Fields("nc") <> "" Then
ts.Cells(i - 1, 1).Value = rs.Fields("nc")
ts.Cells(i - 1, 2).Value = rs.Fields("name")
..............
EndIf 'If rs.EOF Then