学进去

某次测验后，一位同学利用VB编写了一个查分系统。他首先把班级所有同学的学号、姓名、总分及名次数据存放在名为“student. accdb”的info表中。查分系统的功能如下：在文本框Text1中输入学号，单击“开始查询”按钮，若找到该学号，则在标签Label4中显示该学生的学号、姓名、总分及名次；若找不到该学号，则显示“查无此人”。按此要求编写程序如下，但加框处代码有错，请改正。
程序中①加框处改为____________________。
程序中②加框处改为____________________。

Dim a(1 To 50)As String ＇用来存放学号数据
Dim b(1 To 50)As String ＇用来存放姓名数据
Dim c(1 To 50)As Single ＇用来存放总分数据
Dim d(1 To 50)As Integer ＇用来存放名次数据
Private Sub Form Load()
Dim. conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
conn. Connection String="Provider= Microsoft
AC

A．OLEDB12. 0;DATA Soure="+App Path+ "/Student. aeedb"

conn. Open
Set rs. ActiveConnection=conn
rs. Open "Select*From info"
n=0
Do While Not rs.EOF
n=n+1
a(n)=rs. Fields("学号")
b(n)=rs. Fields("姓名")
c(n)=rs. Fields("总分")
d(n)=rs. Fields("名次")
rs MoveNext
Loop
rs Close
conn. Close
Set rs= Nothing
Set conn=Nothing
End Sub
Private Sub Commandl_Click()
Dim key As String, i As Integer
Dim find As Boolean
key=Text1. Text
i=1
find= True
Do While And find             ①
If key=a(i) Then
find=False
Else
           ②
End If
Loop
If find= False Then
Label4. Caption="学号为"+key+"的名字为"+b(i)+"总分为"+c(i)+"名次为"+d(i)
Else
Label4. Caption="查无此人"
End if
End Sub