Sub openWorksheet()
Dim myConnection As New ADODB.Connection
Dim myRecordset As ADODB.Recordset
myConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\myCustomers.xls;" & _
"Extended Properties=Excel 8.0;"
Set myRecordset = New ADODB.Recordset
myRecordset.Open "customers", myConnection, , , adCmdTable
Do Until myRecordset.EOF
Debug.Print myRecordset("txtNumber"), myRecordset("txtBookPurchased")
myRecordset.MoveNext
Loop
End Sub