loConn = CREATEOBJECT('ADODB.Connection')  
  WITH loConn  
     .ConnectionString = 'provider=vfpoledb;data source=' + ;  
        HOME( 2 )+'northwind\Northwind.dbc'  
     TRY  
        .OPEN()  
     CATCH TO loException  
        MESSAGEBOX(loException.MESSAGE)  
        CANCEL  
     ENDTRY  
  ENDWITH  
  loCommand = CREATEOBJECT('ADODB.Command')  
  loCommand.CommandText = ;  
     "SELECT * FROM customers WHERE Country = ?"  
  loParam = loCommand.CreateParameter("Country",  129 ,  1 ,  15 , "")  
  loCommand.PARAMETERS.APPEND(loParam)  
  loCommand.PARAMETERS("Country") = "Brazil"  
  loCommand.ActiveConnection = loConn  
  loRs = loCommand.Execute()  
  ... и т.д.