[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]