Private Sub cmdnext1_Click()
Dim i As Integer
Dim j As Integer

While Not fight.Recordset.EOF
fight.Recordset.MoveNext
txtnum1.Text = fight.Recordset![aircraft_code]
txttype1.Text = fight.Recordset![Type]
txtair1.Text = fight.Recordset![Source]
txtarr1.Text = fight.Recordset![destination]
txttime1.Text = fight.Recordset![depth_time]
txtpr1.Text = fight.Recordset![journey_his]
i = fight.Recordset![aircode]
j = fight.Recordset![city_code]

        city.Refresh
        city.Recordset.MoveFirst
        While Not (city.Recordset.EOF)
        If j = city.Recordset.Fields(0) Then
        city_name1.Text = city.Recordset.Fields(1)

                master.Refresh
                master.Recordset.MoveFirst
                While Not (master.Recordset.EOF)
                If j = master.Recordset.Fields(0) Then
                airline_name1.Text = master.Recordset.Fields(1)
                Exit Sub
                End If
                master.Recordset.MoveNext
                Wend
        End If
        city.Recordset.MoveNext
        Wend


Wend
If fight.Recordset.EOF Then
MsgBox "C?E ??? CI? ??? ?C???I ??? EC??"
End If
End Sub