01.
Dim
oConn
As
ADODB.Connection
02.
Dim
adoRS
As
ADODB.Recordset
03.
Set
oConn =
New
ADODB.Connection
04.
Set
adoRS =
New
ADODB.Recordset
05.
06.
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\;Extended Properties=dBASE
07.
08.
IV;User ID=ADMIN;Password="
09.
10.
sql =
"select Value from "
&
"090615AF.DBF"
&
" where Date = '20090615' "
11.
adoRS.Open sql, oConn
12.
13.
Do
Until
adoRS.EOF
14.
15.
adoRS.MoveNext
16.
Loop
17.
adoRS.Close
18.
oConn.Close