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
则方框处语句依次可为( )