Try To Set Values Of A Text Box Thru Code

I try to to set the value of a text box through code and it will always display the same value in every record. I think i cant display a recordset in a text box. What way i use so that i can display my values in the text box.

Private Sub Form_Open(Cancel As Integer)
Dim qry As String, rst As Object
qry = "SELECT tbl_EquipmentChronology.Equipment1 FROM tbl_EquipmentChronology INNER JOIN tbl_events ON tbl_events.TicketNum=tbl_EquipmentChronology.Ticke tNum where tbl_events.TicketNum=" & Forms!tbl_PPVResearch_Edit!frm_Events!TicketNum & " and tbl_events.PPVVOD_Outlet=tbl_EquipmentChronology.O utlet"
Set rst = CurrentDb.OpenRecordset(qry)
rst.MoveFirst
Do While Not rst.EOF
Forms!tbl_PPVResearch_Edit!frm_Events![Text2] = rst!Equipment1
rst.MoveNext
Loop
End Sub