Проблема в Excel-е с DAO

Начал изучать VBA
Не могу сделать простую вещь -
Работать в VBA с базой Access через DAO :(

Мои действия:
1. Создал test.mdb, test.xls
2. Подключил библиотеку DAO 3.6 в VBA-редакторе
3. Написал процедуру DaoTest()
4. В ней произвожу следующее действие
...
Set rs = db.OpenRecordset(sSQL)
MsgBox rs.RecordCount
...
5. Как результат выдается : 1
А по моему должно быть 4

В чем дело?

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

====== Исходники ========================

файл D:\test.mdb
таблица tab
"ID" "Feld1" "Feld2" "Feld3"
1 "01.01.04" 2,77 "aaaaa"
2 "02.01.04" 3,60 "bbbbb"
3 "03.01.04" 7,30 "ccccc"
4 "04.01.04" 3,10 "ddddd"


файл D:\test.xls

Const DBPath = "D:\test.mdb"

Sub DaoTest()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String

Set db = DAO.OpenDatabase(DBPath)
sSQL = "SELECT * FROM tab;"

Set rs = db.OpenRecordset(sSQL)

MsgBox rs.RecordCount

rs.Close
db.Close

End Sub