Adodc1.ConnectionString
=
"
Driver={Microsoft Access Driver (*.mdb)};DBQ=
"
+
App.Path
+
"
ccc.mdb
"
Adodc1.RecordSource = " select * from sheet1 "
Adodc1.Refresh
For i = 1 To Adodc1.Recordset.RecordCount
Print Adodc1.Recordset( " aa " ), Adodc1.Recordset( " bb " ), Adodc1.Recordset( " cc " )
Adodc1.Recordset.MoveNext
Next
Adodc1.RecordSource = " select * from sheet1 "
Adodc1.Refresh
For i = 1 To Adodc1.Recordset.RecordCount
Print Adodc1.Recordset( " aa " ), Adodc1.Recordset( " bb " ), Adodc1.Recordset( " cc " )
Adodc1.Recordset.MoveNext
Next