How to connect with excel file using ADO

' this will connect to an excel file
Dim cn as ADODB.Connection
set cn = new ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" & _
"Extended Properties=Excel 8.0;"
.Open
End With

' this will select data from it
dim rs as ADODB.Recordset
' to select the entire sheet
strQuery = "SELECT * FROM [Sheet1]"
' or to select just a portion of it
strQuery = "SELECT * FROM [Sheet1$A1:B10]"
set rs = cnn.execute(strQuery)

Tom Cannaerts
slisse@planetinternet.be

Programming today is a race between software engineers striving to build bigger and better idot-proof programs, and the universe trying to produce bigger and better idiots. So far, the universe is winning -- Rich Cook

Since ADO is not included in VB6.0 Learning Edition and I don't want to just go out and get an upgrade right now is there some way I can use my VC5.0 Prof and OLE DB to create something similar enough to use as the ADODB class and/or object for my VB ADO ventures?