小明編寫了一個圖書錄入系統的VB程序，功能如下：單擊“讀數據庫”按鈕Commandl,從數據庫中讀取相應數據顯示在列表框List1中，在文本框Textl中輸入圖書類別，在文本框Text2中，程序運行界面如圖所示。實現上述功能的VB如下，請回答下列問題：
（1）分析程序，可知數據庫的文件名為

Library.jye.ai

Library.jye.ai

。
（2）請在劃線填入合適的代碼。
Dim sType（1 to 200）As String'存放圖書類別
Dim sNumber（1 to 200）As Integer'存放圖書數量
Dim n As Integer
Private Sub Commandl_-Click（　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADOB．Recordset
  conn.ConnectionString=“provider=Microsoft.ACE，OLEDB.12.0data source
=“& App.Path  &“\Library.jye.ai“
    conn.Open
    Set rs.ActiveConnection=conn
     rs.Open“select*from Book“
'本過程從靈長據庫中讀取圖書數據，存儲在相應的變量中，并在Listl 中顯示
'代碼略
   End Sub
Private Sub Command2_-Click（　?。?br />  Dim i As Integer,j As Integer,t As Integer,y As Integer
  Dim x As String,s As String
  Dim flag As Boolean
  List2．Clear
  x=Textl.Text
  y=Val（Text2．Text）
  For i=1 to n
   If sType（i）=x Then

①sNumber（i）=sNumber（i）+y

①sNumber（i）=sNumber（i）+y

        flag=False
      Exit For
  End If

n=n+1

n=n+1

      sType（n）=x
      sNumber（n）=y
  End If
  For i=1 to n-1
Forj=i+1Ton
       If=

③sNumber（i）＜sNumber（j）

③sNumber（i）＜sNumber（j）

Then
         t=sNumber（j）：sNumber（j）=sNumber（i）：sNumber（i）=t
        s=sType（j）：sType（j）=sType（i）：sType（i）=s
    End If
  Next j
Next i
List2．AddItem（“類別    數量“）
  FOr i=1 to n
    List2．AddItem sType（i） &““&Str（sUmber（i））
  Next i
End Sub。