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

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

 For i = 1 To rstZS.RecordCount
   Me.Recordset.Addnew 'Добавляем новую запись

rstZS.Open SQLText, cn, adOpenKeyset, adLockOptimistic
Set Form.Recordset = rstZS

Me("ПолеФормы1").ControlSource=rstZS.Fields(0).Name
Me("ПолеФормы2").ControlSource=rstZS.Fields(1).Name
.................................................
Me("ПолеФормыN").ControlSource=rstZS.Fields(N-1).Name

me.ИмяПоляНаФорме.ControlSource  = ИмяПоляВНаборе

for each ctrl in form.controls
   if ctrl.tag >"" then crl.ControlSource = ctrl.tag
next ctrl