Запрос SQL и VBA

Добрый день всем!  Подскажите  пожалуйста!
"Прикрутила"  небольшую базу данных на  акцессе , необходимо из нее  считать данные , все фамилии из конкретного отдела

Dim rs As DAO.Recordset 
Dim sSQL As String 
Dim sSQL_ot As String 
Set db = DAO.OpenDatabase("C:\DWG\DataBase.mdb")


sSQL = "SELECT * FROM SIGN;"
Set rs = db.OpenRecordset(sSQL)
 '*****
With rs
.MoveFirst 
Do While Not .EOF 
Debug.Print .Fields(0)  
Debug.Print .Fields(1)  
Debug.Print .Fields(2)  
':
.MoveNext 
Loop
End With

строка запроса
sSQL = "SELECT * FROM SIGN;"

если подставлять  значение по столбцу
sSQL = "SELECT fam FROM SIGN;"
где fam наименование  столбца в таблице и там  пять строк

выбирает первое  значение и все!  подскажите  где ошибка?