>Hi everyone,
>
>I have created a program from VFP and would like the records be appended to an MS Access Table. Is there a special code to be used in order to append the records from VFP to MS Access when a button is clicked. ALl of the fields I used for VFP are the same fields used in MS Access.
>
>Thanks.

Ed,
Create a cursor adapter using ACE OLEDB driver. Rest is not much different than handling a buffered VFP table. ie:(mostly written using Data Explorer):

Local loAccess As CursorAdapter,;
  oConn As ADODB.Connection,;
  oRS As ADODB.Recordset, ;
  oException As Exception, ;
  cConnString As String

* Handle connections - insert connection code
cConnString = [Provider=Microsoft.ACE.OLEDB.12.0;]+;
  [Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\NorthWind.mdb;Persist Security Info=False]

Try
  oConn  = Createobject('ADODB.Connection')

  * Ensure that you handle userid and password if not
  * specified in connection string.
  *   ex. oConn.Open(cConnString, userid, password)
  oConn.Open(cConnString)

  oRS = Createobject("ADODB.Recordset")
  oRS.Datasource.CursorLocation = 3   &&adUseClient
  oRS.Datasource.LockType = 3   &&adLockOptimistic
  oRS.ActiveConnection = oConn

  oCA=Createobject("CursorAdapter")
  oCA.DataSourceType = "ADO"
  oCA.Datasource = oRS
  oCA.MapBinary = .T.
  oCA.MapVarchar = .T.

  oCA.Alias = "Customers"
  oCA.SelectCmd = "SELECT * FROM customers"

  If !oCA.CursorFill()
    * Replace with error code here
    Local laError
    Dimension laError[1]
    Aerror(laError)
    Messagebox(laError[2])
  Else
    * Replace with user code here. Code below allows for
    * you to edit and send updates to the backend.
    Local laFlds,lcStr,lnFldCount,i
    Dimension laFlds[1]
    lnFldCount=Afields(laFlds)
    lcStr=""
    For i = 1 To lnFldCount
      lcStr = lcStr + laFlds[m.i,1] +  ","
    Endfor
    oCA.UpdatableFieldList = lcStr
    Insert Into customers (customerID,CompanyName) Values ('VFP#1','Customer added from VFP-1')
    Insert Into customers (customerID,CompanyName) Values ('VFP#2','Customer added from VFP-2')
    Tableupdate(2,.T.,'customers')
    Browse Normal
  Endif

Catch To oException
  * Replace with exception handling code here
  Messagebox(oException.Message)
Endtry

Cetin