小李设计了一个插入排序的VB程序，功能如下：在列表框List1中按成绩从低到高显示每个学生的姓名和成绩，在文本框Text1中输入一个学生的姓名，在文本框Text2中输入这位学生的成绩，单击“插入排序”按钮Command1，检查数组列表中的学生成绩，将其插入到适当位置，保持成绩有序，并在列表框List2中显示插入后的学生姓名和成绩序列．程序运行界面如图所示．

实现以上功能的VB程序如下，请回答下列问题：
（1）小李使用的查找算法是

顺序查找

顺序查找

（填：顺序查找/对分查找）．
（2）分析程序，可知关闭记录集对象的语句为

rs.Close

rs.Close

．
（3）请在画线处填入合适的代码．
     Dim  m（1 To  20）As　String
     Dim   s（1 To  20）As　Integer
     Dim　n　As　Integer
 Private　Sub　Form_Load（　　）
     Dim　conn　As　New　ADODB．Connection'定义新的数据库连接
     Dim　rs　As　New　ADODB．Recordset'定义数据库的一个对象
     conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data   source=“&   App.Path　&“\fwdh.jye.ai“'设置conn的数据库链接字符串
      conn.Open'找开数据库链接
      Set  rs.ActiveConnection=conn'设置rs的ActiveConnection属性，关联conn
      rs.Open“select ^_* from  fwdh“'打开数据库中的表 fwdh
      n=0
      Do　While　Not　rs.EOF
         n=n+1
         m（n）=rs.Fields（0）
         s（n）=rs.Fields（1）
         List1．AddItem  rs.Fields（“姓名“）&““&  rs.Fields（“成绩“）
         rs.MoveNext
       Loop
       rs.Close
       conn.Close
End　Sub
Private　Sub　command1_click （　　）
     Dim x  As　String,y  As　Integer
      x=Text1．Text
      y=Val（Text2．Text）
      i=n
      Do　While

y＜s（i）

y＜s（i）

'①
          s（i+1）=s（i）
          m（i+1）=m（i）
           i=i-1
       Loop

s（i+1）=y

s（i+1）=y

'②

m（i+1）=x

m（i+1）=x

'③
        For  i=1  To  n+1
            List2．AddItem  m（i）&““&Str（s（i））
        Next  i
End　Sub.