نقل البيانات من ريكوردست الى نموذج

السلام عليكم جميعا

اخواني عندي مشكله و إن شاء الله تكون بسيطه عليكم و الحقيقة اني بحثت في المنتدى ولم اجد مشاركه تحل هذي المشكله لي

اريد ان انقل البيانات من الـrecordset الى الـ textbox الموجوده في النموذج علما بان الـrecordset يحتوي على 42 حقل كتبت الكود هذا و لم انجح في الوصول لما اريد و تظهر لي رسائل خطأ

Private Sub cmdnew_Click()

Dim rs As Recordset

Set rs = CurrentDb().OpenRecordset("SELECT * FROM EMPLOYEE WHERE comp_id=" & Me.comp_id & "")

For x = 0 To (rs.Fields.Count - 1)

Me.Controls(x) = rs.Fields(x)

Next

Me.Refresh

End Sub

ارجو منكم التكرم و افادتي بالحل