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
