某农科所研究不同品种生猪产肉量比，数据利用Visual Basic 进行数据处理，生猪的品种编号、产肉比等数据存储在某数据库文件中，程序运行界面如下：

程序运行后，在列表框List1中显示生猪品种编号以及对应的产肉比，单击“排序”按钮（Command1）后，在列表框List2中显示以产肉比的高低，进行降序排列后的生猪品种编号以及对应的产肉比；单击“查找”按钮（Command2）后，在列表框List3中显示产肉比相同的品种编号。
请在横线处填入合适的代码。
Dim conn As New ADODB．Connection
Dim cmd As New ADODB．Command
Dim rs As New ADODB．Recordset
Dim NO（1To 20）As String‘品种编号
Dim Crb（1To 20）As Single‘产肉比
Dim n As Integer
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,t1As String,t2As Single
For i=1To 19
    For j=20To i+1Step-1
If①

Crb（j）＞Crb（j-1）

Crb（j）＞Crb（j-1）

 Then
t1=NO（j）：NO（j）=NO（j-1）：NO（j-1）=t1
t2=Crb（j）：Crb（j）=Crb（j-1）：Crb（j-1）=t2
End If
Next j
Next i
List2．Clear
For i=1To 20
List2．AddItem NO（i） &““& Str（Crb（i））
Next i
End Sub
Private Sub Command2_Click （　　）
Dim s As String,k As Integer,flag As Boolean
For i=1To 19
s=““
    k=i
s=②

s+NO（k）

s+NO（k）

flag=False
    For j=i+1To 20
If ③

Crb（j）=Crb（k）

Crb（j）=Crb（k）

 Then
s=s+“和“+NO（j）
flag=True
End If
Next j
If flag=True Then List3．AddItem s
Next i
End Sub
Private Sub Form_Load （　　）
conn.ConnectionString=“Provider=microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\szcrb.jye.ai“
conn.Open
strsql=“select*from crb“
Set rs.ActiveConnection=conn
本过程其他代码略
End Sub