2017年9月杭州各大楼盘的销售价格数据信息已经保存在数据库文件database1．accdb的Building数据表中，用于显示楼盘信息的VB程序运行时界面如图所示．运行程序，单击“显示”按钮，在列表框list1中显示楼盘信息，单击“降序排列”按钮，在列表框list1中按楼盘均价从高到低显示楼盘信息．按此要求编写的VB程序如下：
Dim num（1 To 50）As String
Dim price（1 To 50）As Single
Dim infor（1 To 50）As String
Dim nam（1 To 50）As String
Dim i As Integer
Private Sub Form_Load（　　）
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“&App.Path &“\database1．accdb“
conn.Open
Set rs.ActiveConnection=   ①
rs.Open“select*from Building“
i=0
Do While ②
         i=i+1
         num（i）=rs.Fields（“编号“）
         price（i）=rs.Fields（“均价（元）“）
         infor（i）=rs.Fields（“信息“）
         nam（i）=rs.Fields（“楼盘名“）
         rs.MoveNext
      Loop
      rs.Close
      conn.Close
End Sub
Private Sub Command1_Click（　　）
   Dim j As Integer
   List1．Clear
   For j=1 To i
       List1．AddItem num（j） &““& Str（price（j）） &““& infor（j） &““& nam（j）
   Next j
End Sub
Private Sub Command2_Click（　　）
   Dim m As Integer
   List1．Clear
   For

①

①

       k=m
       For n=m+1 To i
           If

②

②

 Then k=n
       Next n
       If m＜＞k Then
         t=price（m）：price（m）=price（k）：price（k）=t
       End If
       List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
   Next m
   List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
End Sub
请回答下列问题：
（1）程序加框处的代码有错，请改正：①

conn

conn

 ②

rs.EOF

rs.EOF

（2）横线处应填入的代码为①

m=1 to i

m=1 to i

 ②

price（k）＜price（n）

price（k）＜price（n）

．