Заполнение ОбластиДанных формы access программным способом.

[prokuror]

Добрый день! Есть форма в access 2010, в которую из sql-сервера тянутся данные по проведённым инструктажам сотрудника. Заполнение полей области данных формы предполагается в коде. Но при выполнении кода, цикл записывает дважды одну и ту же последнюю строку (а у сотрудника было два разных инструктажа). Как исправить код, чтобы в область данных записывались обе строки (все строки, что есть по сотруднику)? Заранее спасибо!

Private Sub Form_Load()
ConnectToBase

SQLText = "SELECT users_status.status, order_type.type, users_timesheet.order_num, users_timesheet.order_date, users_timesheet.begin_date, users_timesheet.end_date" _
& " FROM order_type INNER JOIN (users_status INNER JOIN users_timesheet ON users_status.id = users_timesheet.status_id) ON order_type.id = users_timesheet.order_id" _
& " WHERE (((users_timesheet.user_id)=14));"
 
rstZS.Open SQLText, cn, adOpenKeyset, adLockOptimistic

' присваиваем значения запроса в поля формы:
If Not rstZS.EOF Then
rstZS.MoveFirst
Dim i As Integer
    For i = 1 To rstZS.RecordCount

    Me.ПолеСтатусСотрудника = rstZS.Fields(0)
    Me.ПолеТипПриказа = rstZS.Fields(1)
    Me.ПолеНомерПриказа = rstZS.Fields(2)
    Me.ПолеДатаПриказа = rstZS.Fields(3)
    Me.ПолеДатаНачала = rstZS.Fields(4)
    Me.ПолеДатаОкончания = rstZS.Fields(5)
 rstZS.MoveNext
 Next i

End If

End Sub

[prokuror]

Мне помогли найти решение.
Как оказалось, нужно строку присвоения значения полю прописывать следующим образом:

Me.ПолеСтатусСотрудника.ControlSource = rstZS.Fields (0).name
...
...

Всем спасибо за помощь!