DOCERR: Excel Code in Chapter 16 of Online Docs Incorrect

MORE INFORMATION

   Sub FoxTest()
      Dim oFox as Object
      Set oFox = CreateObject("VisualFoxPro.Application")

      oFox.DoCmd "USE customer"
      oFox.DoCmd "SELECT contact, phone FROM customer
        WHERE country = " + Chr$(39) + USA+ Chr$(39) + " INTO CURSOR cust"
      oFox.DataToClip "cust",,3
      Range("A1:B1").Select
      ActiveSheet.Paste
   End Sub
				

1. Add the following line before 'oFox.DoCmd "USE customer"':

         oFox.DoCmd "SET DEFAULT TO HOME()+ '\samples\data'"
   						

2. The WHERE clause has to be on the same line with the SELECT. Make sure the Excel editor does not place any extra characters in this line.
3. Add the following line before 'Range("A1:B1").Select' :

         ActiveWorkbook.Sheets(2).Activate