Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "file name=c:\a.udl"
Dim t1 As Long, FieldCount As Long, i As Long
rs.MaxRecords = 50000
rs.CacheSize = 1000
t1 = GetTickCount()
rs.Open "select id,trddt,stkcd from dalyr", cnn, adOpenStatic, adLockReadOnly, adCmdText
FieldCount = rs.Fields.Count
rs.MoveNext
While Not rs.EOF
For i = 0 To FieldCount - 1
obj = rs.Fields(i).Value
Next i
rs.MoveNext
Wend
MsgBox GetTickCount() - t1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cnn = Nothing
Set rs = Nothing
End Sub