现有一个 VB 程序，用于读取某数据库中“book”数据表的数据，其中部分代码如下：

Dim conn As ADODB.Connection

Dim rs As New ADODB.Recordset

Dim a(1 To 100) As String

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;data Source=" & App.Path & "\Mydata.accdb"

Set rs.ActiveConnection = conn

rs.Open "SELECT * FROM book"

n = 0

Do While Not

   

    a(n) = rs.Fields("name")

   

Loop

上述程序段中方框处可选语句为：

①n = n + 1   ②rs.MoveNext   ③rs.BOF   ④rs.EOF

则方框处语句依次可为（    ）

A、③②①

B、②①④

C、④②①

D、④①②