Dim adoConn As New ADODB Connection
Dim adoRs As New ADODB. Recordset
Dim a(1 to 1000)As String, b(1 to 1000) As Integer
adoConn ConnectionString "Provider=Microsoft. ACE OLEDB 12.0:DATA Source="& App. Path &\mydata. accdb
adoConn. Open
Set adoRs. ActiveConnection= adoConn
adoRs. Open “Select*From Score”
n=0
Do While Not adoRs. EOF
n=n+1
a(n)= adoRs. Fields(“学号”). Value
b(n)=adoRs.Fields(3). Value
adoRs. Move Next
Loop
adoRs. Close:adoConn. Close
下列对于该程序段的理解正确的有
①程序连接的数据库文件名是“ \mydata. accdb”
②程序打开的数据表名称是“ Score"
③程序将数据表中的语文成绩存入数组b
④程序运行后,变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为adoConn. close