VB用文件查找记录的问题

我想实现的大概要求是这样的，比如输入一个学生的学号，然后在文件中查找，把这该学生的所有相关资料显示在对应的文本框上。
guest己经定义了，是自定义类型~~文件也己经打开了~~可是总是不能显示出来我的QQ：5638951  希望大家能够帮到我
部份程序如下：
Private Sub bdhcheck_Click(index As Integer)
  Dim X As String
  
  'x为输入查询的保单号
  
   X = Trim(Text1.Text & Text2.Text & Text3.Text & Text4.Text & Text5.Text)
      For n = 1 To num
        Get #1, n, guest
        If X = guest.bdh Then
          Call txtkh
        Exit For
      End If
       Next n
   
   Call frmkh.txtlock
   frmkh.Show vbModal
End SubPublic Sub txtkh()  '查询结果赋值给文本框
   
   frmkh.Text1(0).Text = guest.khh
   frmkh.Text1(1).Text = guest.bdh
   frmkh.Text1(2).Text = guest.tbr
   frmkh.Text1(3).Text = guest.pbr
   frmkh.Text1(4).Text = guest.be
   frmkh.Text1(5).Text = guest.bf
   frmkh.Text1(6).Text = guest.syr
   frmkh.Text1(7).Text = guest.dh
   frmkh.Text1(8).Text = guest.sj
   frmkh.Text1(9).Text = guest.dj
End Sub