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（　?。?br />Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.oledb.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（　?。?br />   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（　?。?br />   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）程序加框處的代碼有錯，請改正：① ②
（2）橫線處應填入的代碼為① ②．

【考點】編輯事件處理過程的代碼．

【答案】①；②；conn；rs．EOF；m=1 to i；price（k）＜price（n）