Dim StrName As String

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub Command1_Click()

StrName = TxtName.Text

Do Until Data1.Recordset.EOF

If Data1.Recordset.Fields("Examiner Name").Value = StrName Then
    FrmSearch.Height = 6000
    TxtNumber.Text = Data1.Recordset.Fields("Examiner Number")
    TxtAddress.Text = Data1.Recordset.Fields("Examiner Address")
    TxtReference.Text = Data1.Recordset.Fields("Subject Reference Code")
    
    
Exit Do
Else
    Data1.Recordset.MoveNext
End If



Loop

End Sub