我想用datalist控件读取acess数据库中的俩列数据X,Y，然后赋给俩个一维数组。可是不会用循环赋值，请教程序代码。

可以用动态数组

[CODE]Private Sub Command1_Click()
Dim adoCon As ADODB.Connection
Dim adoRst As ADODB.Recordset
Dim ConString As String
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = false;" _
& "Data source = D:\mdb\NorthWind.mdb;Jet OLEDb:DataBase Password=123456"

Set adoCon = CreateObject("ADODB.Connection")
adoCon.Open ConString

Dim sql As String
sql = "Select OrderID From Orders Order By OrderID"

Set adoRst = CreateObject("ADODB.Recordset")
adoRst.CursorLocation = adUseClient
adoRst.Open sql, adoCon, adOpenKeyset, adLockPessimistic

Dim ArrList() As String
ReDim ArrList(adoRst.RecordCount) As String
Dim i As Integer

For i = 0 To adoRst.RecordCount - 1
ArrList(i) = adoRst.Fields(0).Value
adoRst.MoveNext
Next

adoRst.Close
adoCon.Close
Set adoRst = Nothing
Set adoCon = Nothing

For i = 0 To UBound(ArrList)
List1.AddItem ArrList(i)
Next
End Sub[/CODE]